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BEVEZETÉS 


Az itt közzétett programokat fiatalok készítették: középiskolás diákok. Élet¬ 
koruk, valamint a magyarországi mikroszámítástechnika helyzete következté¬ 
ben valószínűleg csak nemrég ismerkedtek meg ennek a tudománynak (és* 
hobby na k) a szépségeivel, hasznosságával, szakmai alapismereteivel. Többségűk 
otthonában — minden bizonnyal — már ott van egy saját családi tulajdonban 
levő vagy egy kölcsönkért számítógép. Az első fázisban általában azok a — sok* 
szór valóban sziporkázóén szellemes — játékprogramok játsszák a főszerepet, 
amelyek bőségein kaphatók a nyugati áruházakban, és sokszor az „anti- 
számítógépesek"-et is képesek „megfertőzni". Ez a láz általában — és szeren¬ 
csére — nem tart soká, mert felmerül a saját elképzelések megvalósításának 
igénye. Az újdonság varázsában természetes, hogy elsősorban a játékprogramok 
jönnek számításba. Ez azonban már minőségileg más tevékenységet és gondolat¬ 
menetet kíván. Szabad utat kap a fantázia, megkezdődik a programozástechni¬ 
kai ismeretek gyakorlati elsajátítása. Űj generáció ismerkedik a legújabb tech¬ 
nikával. 

A fiataloknak még nem kell tudniuk, hogy a számítógép bár kitűnően szóra¬ 
koztat, de alapvetően nem erre való, nem ezért találták fel és fejlesztették ki 
.őket. A számítógép és a számítástechnika alkalmazása — megfelelő előkészüle¬ 
tek, gépkiválasztás, hatékony használat mellett — szükségszerű gazdasági, tehát 
közvetett vagy közvetlen hasznot termelő tevékenység. Mire ezek a fiatalok 
dolgozni kezdenek, a számítástechnikához vezető úton az első lépéseket meg¬ 
tették, a számítástechnika alapfogalmait megszokták, és otthonosan mozognak 
köztük. 

Most tehát játékprogramok listáit tesszük közzé. Az ötletek persze többé- 
kevésbé ismerősek is lehetnek. Nem vizsgáltuk, nem is vizsgálhattuk a játék¬ 
ötletek és megvalósításuk „eredetiségét" — de mindegyik program némiképp 
magán viseli már alkotójának egyéniségét is. 

A szerzők túljutottak a programtervezés és a kódolás sokszor unalmas, fárad¬ 
ságos, igen pontos munkát követelő kezdő lépésein, tesztelték, esetleg módo¬ 
sították, javították programjaikat. Rákényszerültek az ötletek és a fegyelmezett 
munka Összeegyeztetésére, és a problémákkal több-kevesebb sikerrel meg is 
birkóztak. További eredményes programozói munkát kívánunk nekik és mind- 


azoknak, akik talán még nem jutottak el az önálló programkészítéshez, de ked¬ 
vet, ambíciót éreznek hozzá. 

A most induló, és várhatóan folytatódó sorozat első kötete - talán kicsit ön¬ 
kényes választással - a ZX Spectrum személyi számítógépre írt programokat 
tartalmazza. Ezt a választást a gép viszonylagos elterjedtsége, az egyszerű prog¬ 
ramozhatóság és a sokféle kedvező tulajdonság (hanghatás, színkezelés stb.) in¬ 
dokolta. A későbbiekben remélhetőleg más számítógéptípusokra írt programok 
közlésére is lehetőség nyílik. 

Lássuk tehát a programokat, amelyeket ki-ki begépelhet a saját gépébe! Közöl¬ 
jük a program alkotójának nevét, a program rövid tartalmi leírását, a teljes listát 
és alkalmanként saját szubjektív észrevételeinket. Ez utóbbiakat inkább tanács¬ 
nak, mintsem kritikának szánjuk. 

Azt javasoljuk, hogy ne sorról sorra másolják be a programot, hanem először 
„olvassák át" és az elágazásokat követve, egy-egy szubrutin beírásával, kipró¬ 
bálásával haladjanak előre. így az egyes módosításokat is könnyebb elvégezni. 
Még egy szakmai megjegyzés: a Spectrum gépek jelenleg 16 K-s vagy 48 K-s 
memóriával kerülnek forgalomba. 

Mi nem tettünk különbséget a két gépi változat között, de a némileg eltérő 
memóriafelépítés miatt a fixcímek néha különbözők. Ez az egyes programok 
esetén címváltozást okozhat elsősorban a programozható karakterek, az UDG-k 
elhelyezésénél. Csupán az első két program készült 16 K-s gépen. A listák végén 
a grafikus karaktereket ábécésorrendben többnyire feltüntettük. 



KOCKA 

Készítette: Kovács Zoltán 


Leírás: A program négy színt kér a játékostól. Ebből a négy színből elkészít 
és a képernyőn megjelenít egy 4X4-es négyzetet, amelynek elemei a megadott 
színekből alkotott négyzetek. Egy villogó nyíllal lehet pozícionálni az x és z 
billentyűkkel arra a sorra vagy oszlopra, amelyen egyet - ciklikusan - forgatni 
akarunk. Ilyenkor az utolsó kis négyzet az első helyére lép, a többi pedig érte¬ 
lemszerűen arrébb csúszik. A teljes 4X 4-es négyzetet — kicsit a bűvös kocká¬ 
hoz hasonlóan - addig kell így „forgatni", amíg minden vízszintes sorban egy¬ 
forma színű négyzet lesz. A program a forgatások számát számolja, a helyes 
megoldáskor zenél, majd újra indítható. A sorok (oszlopok) az N billentyű 
hatására fordulnak. 

í >60 T0 1000 

5 Dili a < 4) : DIM b(4): DIM c<8>: DIM d(3,4) 

ó FÓR g = 1 T0 4: PRINT’ g;“.SZIN “; 

7 INPUT f: IF f<0 0R f>7 THEN S0 T0 6 

8 LET b(g)=INT f: PRINT f: NEXT g 

9 CLS 

10 LET 1=0: LET q=22827 
20 F0R -f = 11 T0 17 STEP 2 
25 fOR g=9 T0 15 STEP 2 
30 G0 SUB 70 
40 NEXT g: NEXT f 
45 FQR f=l T0 8: F0R g=l T0 4 
50 READ a: LET d<-f,g)=q + a 
55 NEXT g: NEXT i 

60 DATA 0,2,4,6,64,60,68,70,128,130,132,134,192,194 
,196,198,192,128,64,0,194,130,66,2,196,132,68,4,198,1 
34,70,6 

65 G0 T0 150 

70 LET a=INT <RND*4>+1 
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80 IF a(a)=4 THEN 60 T0 70 
90 LET a (a)=a <a) + 1 
100 LET s=b(a): INK s 
110 PR I NT AT g , f ; " RB” 

120 PR INT AT g + 1 ,-f;" DC" 

130 RETURN 
150 INK 0 

160 FÓR f =9 TO 15 STEP 2 
165 LET c<(f-7>/2)=22528+f*32+8 
170 PRINT AT f , 8; “ B:" : NEXT í 
180 PRINT AT 18,11;"F F F F" 

190 FÓR f =5 TO 8 

200 LET c(f > =23105+ <f*2) 

210 NEXT f 

215 F'OKE c(l) ,231: LET c = l 

220 IF INKEY$="x" THEN 60 TO 300 

225 IF INKEY$="z" THEN 60 TO 350 

230 IF INKEY$="n" THEN 60 TO 400 

232 IF PEEK qOPEEK <q + 2> OR PEEK. (q+2)OPEEK (q + 4) 
OR PEEK (q+4)< >PEEK (q + 6> THEN 80 TO 240 

235 IF PEEK (q+64)OPEEK (q + 66) OR PEEK íq + 66)OPEEK 
(q+68) OR PEEK (q+68)OPEEK (q+70) THEN 60 TO 240 
237 IF PEEK (q + 128) < >PEEK (q+130) OR PEEK <q+130)OP 
EEK (q+132) OR PEEK (q+132)<>PEEK íq+134) THEN 60 TO 


240 






239 

80 TO 600 





240 

60 TO 220 





300 

F'OKE c (c ) , 56: 

LET c 

= c + í 


310 

IF c=9 THEN 

LET c = 

1 



320 

POKE c (c),231 





325 

FÓR f =0 TO 30 

: NEXT 

i 



330 

60 TO 220 





350 

POKE cici,56: 

LET c 

-c- 

1 


360 

IF c=0 THEN 

LET c = 

e 



370 

60 TO 320 





400 

LET e1=d < c,1i 

: LET 

e2 = 

d (c 

,2) 

410 

LET s3=d <c,3) 

: LET 

e4 = 

d (c 

,4) 

420 

LET fl=PEEK el: LET 

f 2 

= P E E K e2 
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430 LET f3=PEEK e3: LET f 4 = P E E K e4 
440 LET r l = e3: LET r2=-f 2: 60 SÜB 500 

450 LET r1=e4: LET r2=-f3: 60 SÜB 500 

460 LET rl=e1: LET r2=P4: 60 SUB 500 

470 LET ri=e2: LET r2=fl: 60 SUB 500 

475 LET 1=1+1: PRINT AT 5,14;1 
430 60 T0 220 

500 FOKÉ r 1, r 2: POKE rl + l,r2 
510 POKE r 1+32,r2: POKE rl + 33,r2 
520 RETURN 

600 FÓR f =0 TO 10 STEP .1 

610 BEEF' .01,f: NEXT f 

620 PRINT AT 5,12;"UJ JÁTÉK-1“ 

625 PAUSE 100 

630 PAUSE 0: IF INKEY$ = "i" THEN RUN 
640 SAVÉ "Kocka" 

650 STOP 

1000 FÓR f=0 TO 31: READ a: NEXT f 
1005 FÓR i =32600 TO 32647 
1010 READ a: POKE F,a: NEXT f 

1015 CLS : PRINT "Torold ki az l.sort,es futtas ujb 
ol ! " 

1020 DATA 0,127,127,127,127,127,127,127 
1030 DATA 0,254,254,254,254,254,254,254 
1040 DATA 254,254,254,254,254,254,254,0 
1050 DATA 127,127,127,127,127,127,127,0 
1060 DATA 24,12,6,255,255,6,12,24 
1070 DATA 24,60,127,219,153,24,24,24 


Megyjegyzés: Szellemes és látványos program. Jól kihasználja a számítógép 
színkezelését. Valamilyen egyszerű, felhasználóközeli módon megoldható 
lenne, hogy a színek választékát „menüszerűen" a képernyőn a játékossal 
tudassa a program, bár tulajdonképpen közömbös a játék szempontjából, hogy 
melyek a kiválasztott színek. Ezenkívül, ha az „Új játék?" kiírásra nem „i" 
karakterrel válaszolunk, a számítógép furcsán reagál, nyomban kimenti ugyanis 
a játékot. A képernyőn közölt információk fogalmazása és helyesírása lehetne 
pontosabb. Sajnos teljesen hiányoznak a REM-ek a programlistából. 
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LOGICE 


Készítette: Kovács Zoltán 


Leírás: Ez a program a „Négy a nyerő” néven is ismert játék számítógépes vál¬ 
tozata. Mindig a játékos játszik a gép ellen. A játékmező hét oszlopból áll, és 
csak az oszlopok alsó pozíciójába lehet lépni. Ilyenkor az oszlop eggyel feljebb 
tolódik. Az egyes lépésekhez tehát a megfelelő számot kell beütni. Az a cél, 
hogy akár vízszintesen, akár függőlegesen, akár átlósan négy egyforma színű 
figura kerüljön egymás mellé. Ha sikerül, a gép értékel. 


1>60 T0 1000 

10 DIH t < 9) : DIH p < 9 >: DIN b(9): DIN c í 9 5 
20 DIH a(11,12) 

30 LET pl = ö: LET p2=ü: LE T r5=0 

40 CLS : PRINT AT 10,10;"KI KEZDJEN?";AT 12,8;"1-JA 


TEKGS;2- 

GÉP" 


50 IF 

INKEY$=" 1" 

THEN 

60 IF 

IN K E Y í =" 2" 

THEN 

70 G0 

T0 50 


100 G0 

SUB 200 


110 INK 

5: PR INT 

FLASH 

PR INT 

FLASH Q;AT 

10,26 

3 THEN 

GQ TQ 900 


1 15 60 

SUB 300 


120 INK 

2 : PR INT 

FLASH 


INT FLASH 0;AT 10,0;"JAT 
3 THEN GQ TG 900 


G0 TG 100 

GG SUB 200: GO T0 120 


1; AT 10,0;"JATtKOS";: INK 2: 
"GÉP";: LET r5=r5+l: IF r5=4 


1;AT 10,26;"GÉP";: INK 5: PR 
EKOS";: LET r5 = r5 + i: IF r5=4 


130 60 SUB 500 
190 ,60 T0 110 

200 CLS : F0R f=3 T0 9: FÜR g=3 T0 S 

210 LET bíf)=3 + f*2: LET c(g)=2+g*2: PRINT AT c(g),b( 


f ) ; " E F"; 

215 LET a (g , -f) = 0 
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220 NEXT g: NEXT f 
240 RETURN 

300 LET a$=INKEY$: IF a $ >"0" AND a$<"8" THEN GO TO 
320 

310 GO TO 300 

320 LET a=2+VAL <a$) 

330 FÓR g = 8 TO 3 STEP -1: IF a<g,a)=0 THEN GO TO 35 

0 

340 NEXT g: GO TO 400 

350 INK 5: LET a(g,a>=2: PR INT AT c (g > -1, b (a) ; " FiB" 
;; PR INT AT c(y) ,b (a) ; " CD" j 

360 LET -f 1 = aí LET f2 = g: LET f5 = 2: LET g6 = 1: GO SUB 7 
00 

370 INK 0: RETURN 

400 PRINT AT 1,10;"Hibás lépési" 

410 BEEP 1,1: F'AUSE 50: PRINT AT 1,10;" 

420 GO TO 300 

500 FÓR g = 3 TO 9: LET f íg)=0 

510 FÓR r=3 TO 8: IF a(r,g)=0 THEN LET fíg)=r 
520 NEXT r: NEXT q 

530 LET g = 0: FÓR r = 3 TO 9: IF f(r)=0 THEN LET pír) = 
-100; GO TO 550 

540 LET f1= r: LET f 2 = f <r >: LET gó = 0: GO SUB 700: LET 
p ír)=g3 

550 IF p í r)> g THEN LET g = p(r): LET n = r: LET k = f(r) 
560 NEXT r 

570 LET a (k , n ) = 1: INK 2: PRINT AT c (k ) -1, b < n ) ; " R!3" 
580 PRINT AT ciki ,b(nl;."CD"; 

590 LET t l = n : LET -f 2 = k : LET g6=l : LET f 5 = 1: GO SUB 7 

00 

600 INK 0: RETURN 

700 LET g3 = 0: LET +3=1: LET f4 = 1s GO SUB 710: LET f3 
= 0: GO SUB 710: LET f3 = -1s GO SUB 710: LET *4 = 0: GO S 
UB 710: RETURN 

710 FÓR z=l TO 2: LET x=0: LET g4=l 
715 FÜR c=l TO 3 
720 LET fl = f 1 + f3: LET *2 = f2 + f4 
725 IF a(f 2,f1)< >z THEN GO TO 740 
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73Ö LET g 4 = g 4 + 1: NEXT c: LET c-3 

740 LET fi=fl-c*f3: LET f2 = f '2-c*f4 

750 FÓR c = l TQ 3: LET fl = fl--f3: LET •f2 = f2-T4: 

755 IF a (f 2,-f 1) < >2 THEN 60 TO 770 
760 LET g4 = g4 + i: NEXT c: LET c = 3 
770 LET i l=fl+c*f3: LET Í2=f2+c*f4 

780 LET g3 = g3+(g4*g4*g4!*(4-z>: IF g4>=4 THEN 60 TO 
800 

790 NEXT 2 : RETURN 

800 IF g6 = Ö THEN 60 TO 790 

810 IF f5 = 2 THEN 60 TO 850 

820 IF f5 = 2 THEN LET pl=pl + l: PRINT AT 12,27;p 1;: 6 

0 TO 790 
830 60 TO 790 

850 IF 2 = f5 THEN LET p2=p2 + l: F'RINT AT 12,5;p2;: 60 

TO 790 

860 60 TO 790 

900 CLS : INK 1: PRINT AT 10,15;p1p2: IF pi>p2 

THEN 60 TO 930 

910 IF p1<p2 THEN 60 TO 950 

920 PRINT AT 13,13;"Dontet1en! ": 60 TO 980 

930 PRINT AT 13,10;"Gyozott a gép!" 

940 60 TO 980 

950 PRINT AT 13,8;"Gratulál ok! Nyertei!" 

980 FÓR -f =0 TO 10 STEP .1: BEEP .05,f: NEXT f: STOP 
1000 FÓR -f =32600 TQ 32647 
1010 READ a: POKE -f ,a: NEXT f 
1015 RÜN 10 

1020 DATA 0,3,15,31,63,60,120,120,0,192,240,248,252,6 
0,30,30,120,120,60,63,31,255,255,255,30,30,60,252,248 

,255,255,255 

1030 DATA 0,0,0,0,0,112,124,127,0,0,0,0,0,14,62,254 

Megjegyzés: A játékkal kapcsolatban nincs különösebb megjegyzésünk, szóra¬ 
koztató logikai játék. A listából szinte teljesen hiányoznak a REM-ek, és a 
programutasítások felépítése zsúfolt, nehezen áttekinthető (bár sokkal kevésbé, 
mint az előző „KOCKA" programban). 
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BOGARAK 


Készítették: Galambos Attila, Rusznyák Gábor, Király László 


Leírás: A játék célja, hogy a képernyőre rajzolt hálózat egy véletlen helyén 
megjelenő villogó csillagot „megegye", ill. elérje a játékos. A pályán eközben 
négy bogár mozog, amelyek követik a játékos mozgásának irányát, és megkísér¬ 
lik utolérni. Ha a bogarak bekerítési manővere sikerül, vége a játéknak. Ha 
ellenben nem, a játékos eléri a villogó csillagot, a program jutalmul zenél és 
10 pontot ad. Ilyenkor a cél-csillag, a bogarak, valamint a játékos figurájának 
a helye véletlenszerűen megváltozik. Egy „élet" van: az elért találatok számát 
végeredményként kezeli a gép. 

Az irányítógombok: 

M — jobbra 
N — balra 
A - felfelé 
Z - lefelé 

1 RÉM *** BOGARAK *** 

5 PQKE 23658,24 

6 GO BÚB 9000: GO T0 3000 

7 LET P = 0 

10 BORDÉR 1: PAPER 2: INK 0: CLS 

15 RÉM * PALYA * 

20 F0R 1=0 T0 21: PRINT AT 1,0; PAPER 1; M n : NEXT I 

30 F0R 1=0 TQ 21: PRINT AT 1,30; PAPER 1; M NEXT 

I 

40 PRINT AT 21,1; PAPER 1; * 

>i 

50 PAPER 7: F0R 1=0 T0 20 STEP 4: F0R J = 1 T0 29: PR 
INT AT I,J; " ": NEXT J: NEXT I 

60 F0R 1=1 T0 29 STEP 4: F0R J=0 T0 20: PRINT AT J, 

I;" NEXT J: NEXT I 

1000 LET I*= "GFHE" : DIN B$(4>: LET Af= "A" 
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1010 DIM X í 4 ) : DIM Y í 4 ) : DIM C < 4) : DIM D(4) 

1100 FÓR N=1 TO 4: LET XíN)=4*INT ÍRNB#8): LET Y (N)= 4 
* I NT í RND*5) : PR I NT AT YíN), X (N) +1; I $ (4) : NEXT N 
1110 LET X=4*INT (RND*8): LET Y=4*INT ÍRND*5> 

1120 FÓR N=1 TO 4: IF Y = Y(N) AND X = X <N) THEN 60 TO 1 
110 

1125 NEXT N 

1130 F’RINT FLASH 1; AT Y,X + 1;"A": F'AUSE 0: PRINT AT 

Y , X + 1; "A" 

1190 FÓR'N=1 TO 4: LET C < N)= X(N): LET D(N)=Y(N): NEXT 
N 

1200 LET Z X = 4* I NT ÍF;ND*8): LET ZY = 4*INT (RND*5) 

1210 FÓR N=1 TO 4: IF (X = X(Ni AND X/4 = INT (X/4)) OR ( 

Y = Y(N) AND Y/4 =INT (Y/4)) THEN LET C(N)=X: LET D(N) = 

Y 

1220 F'R INT AT Y (N) , X (N) + 1; " " : LET X<N)=X(NK(C(N)-X< 
N)): LEJ Y!N)=Y(N)+S6N (D <N>-Y <N)) 

1230 IF XíN)OC(N) OR YÍN)OD(N) THEN 60 TO 1300 
1240 IF INT (RND+.5) THEN 60 TO 1280 
1250 LET CÍN)=CÍN)+4*SGN (RND-.5): IF CÍNKO THEN LE 
T C < N) = C v N) + 8 

1260 IF C(N)>28 THEN LET C(N)=CÍN)-8 
1270 60 TO 1300 

1280 LET D ÍN)=D ÍN) +4#SGN ÍRND-.5): IF DíNXO THEN LE 
T D ÍN)=D(N)+3 

1290 IF D ÍN)>20 THEN LET DÍN)=DÍN)-S 

1300 LET B$ < N) = 1$ íÍCÍN)>X ÍN))+2* < X(N)>C ÍN))+3* <D(N)>Y 

ÍN))+ 4*(V ÍN)>D(N) ) ) 

1310 IF X = X ÍN) AND Y = Y ÍN) THEN 60 TO 2000 
1320 PRINT AT Y ÍN) , X (N) +1; Bí (N) : NEXT N: F'RINT FLASH 
1j AT ZY , ZX +1;"*": PRINT AT Y , X +1; H " 

1330 IF INKEY$="A" THEN LET Y = Y-(Y>0>*íX/4=I NT íX/4) 

) : LET Aí = ”A" 

1340 IF INKEYÍ="Z" THEN LET Y = Y+íY<20)*<X/4= INT ÍX/4 
) ) : LET A$="D" 

1350 IF INKEYí="N" THEN LET X = X-(X >0)* <Y/4=INT (Y/4) 
) : LET A$= "B" 

1360 IF INKEYÍ = “M" THEN LET X = X+ (X<28)*(Y/4=INT íY/4 
)) : LET A$="C" 
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1370 F'ftlNT AT Y,X+1;A$: IF X = ZX AND Y = ZY THEN 60 T0 
1800 

1380 GO TO 1210 

1800 LET P=P+10: SQ SUB 1830: PRINT AT 21,0; PAPER 1; 

INK 6;" " ;P;" PONT" 

1810 FÓR N= 1 TO 4: F'RINT AT Y (N) , X (N) +1; " NEXT N: 
PRINT AT Y , X + 1; " " 

1820 GO TO 1100 

1830 FÓR 1=0 TO 20: BEEP .07,1: NEXT I: FÓR 1=30 TO 1 
0 SlEP -1: BEEP .05,1: NEXT I: RETURN 
2000 F'RINT AT Y , X +1; "*": FÓR N = 2Ö TO 0 STEP -1: BEEP 
.02,N: IF N=15 THEN PRINT AT Y,X + 1;" + " 

2010 IF N= 10 THEN F'RINT AT Y,X + 1;"." 

2020 NEXT N: PRINT AT Y,X +1;" ": PAUSE 100 
2030 PAPER 4: INK 7: FÓR 1=0 TO 20 STEP 3: FÓR J=1 TO 
29: F'RINT AT I,J;" ": BEEP .01,I + J: NEXT J: NEXT I 
2040 FÓR 1=1 TO 20 STEP 3: FÓR J=1 TO 29: PRINT AT I, 
J;" ": BEEP .01,I+J: NEXT J: NEXT I 

2050 FÓR 1=2 TO 20 STEP 3: FÓR J = 1 TO 29: F'RINT AT I, 
J;" ": BEEP .01,I+J: NEXT J: NEXT I 
2060 PRINT AT 9,11;"JÁTÉK VEGE" 

2070 F'RINT AT 12,9; " PONTSZ AH : ";P 

2080 F'RINT FLASH 1; AT 15,1;"NY0MJ EGY GOMBOT A KEZDE 
SHEZ ! " 

2090 F'AUSE 500 

3000 PAPER 7: INK 2: CLS : F'RINT "******************* 
************** ** 

BOGARAK ** 

********************'*************" 

3010 F'RINT : F'RINT “ Ebben a játékban a feladatod: 
el kell jutnod a villogó csil- lagig úgy, hogy ne eg 
yenek meg a bogarak." 

3020 PRINT : PRINT " A játékhoz sok sikert kivannak 
a játék keszitpi:" 

3030 PRINT : PRINT " Király -László 

Galambos Attila Rusznyak Gábor" 

3040 PAUSE 500: GO TO 7 

4000 CLEAR : SAVÉ "BOGARAK" LINE 1: VERIFY "BOGARAK": 
RIJN 
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B999 PAPER 7: INK 0: STOP 

9000 FÓR 1=0 TO 63: READ A: POKE USR "A"+I,A: NEXT I: 


RETURN 
9010 DATA 
9020 DATA 
9030 DATA 
9040 DATA 
9050 DATA 
9060 DATA 
9070 DATA 
9080 DATA 


0,24,60,126,126,102,66,0 
0,30,60,120,120,60,30,0 
0,120,60,30,30,60,120,0 
0,66,102,126,126,60,24,0 
165,153,126,60,255,60,126,153 
201,42,190,127,127,190,42,201 
147,84,125,254,254,125,84,147 
153,126,60,255,60,126,153,165 


LLIST 


Megjegyzés: A játék jó, de kissé nehezen áttekinthető a programlista (pl. logi¬ 
kailag fontos utasítások nem a programsorszám után, első utasításként íródtak, 
hanem ötletszerűen, szinte folyamatosan). Kicsit feleslegesen hosszú ideig 
dudorászik és törli a képernyőt a program, amikor a bogarak megeszik a játé¬ 
kost. És még egy: nem mindig következetesen üldözik a játékost a bogarak. 
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GOLF 


Készítette: Tikk Domonkos 



Leírás: A program a golfjáték egyszerűsített szimulációja. 18 lyukba kell a 
golyót beütni. Az ütés erősségével lehet szabályozni a golyók meglökését 
(1—20). Három akadály nehezíti a pályát: egy árok, egy erdő és egy tó. Ha a 
golyó a tóba esik, elölről kell kezdeni a játékot. Ha csak (megfelelő mértékben) 
megközelíti a golyó a lyukat, egy kinagyított térképszerű ábrán lehet pontosí¬ 
tani az ütést. 
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10 BORDÉR 4: PAPER 4: INK 0: CLS 
15 LET 1=0: LET z = 0 
100 LET 1=1+1 

105 LET e=INT (RND*2Ö0+100) 

110 LET w=(RND>.8>: LET we=INT (RND*e); LET 5=íRND<.. 
3): LET 56 =INT (RND*e) : LET r=(RND>.5): LET re=INT (R 


ND*e) 

114 RÉM A F'ALYA KIRAJZOLÁSA 

115 CLS : PRINT 1;". 1yuk",“távolsag ";e 
120 DRAM 120,80: PLOT 255,0: DRAW -120,80 

125 PLOT 120,80: DRAW 16,0,PI/5: DRAW -1ó,0,PI/5 
130 PLOT 128,81: DRAW 0,5: DRAW 2,-1: DRAW -2,-1 
135 POR i=0 TO Pl STEP .2: PLOT i*20+93,85+SIN i*10: 


DRAW 0,-10: NEXl i 
141 LET z=z + l 

145 IF s THEN INK 5: PLOT 180,60: DRAW 50,0,PI/10: 


DRAW -10,20,Pl: DRAW -40,-20,PI/5: INK 0 
150 IF r THEN FÜR 1=1 TO 20 STEP 4: PLOT 140+1,70: 
DRAW 3,-15: NEXT i: FÓR 1=20 TO 1 STEP -4: PLOT 140+1 
,70: DRAW -3,-15: NEXT i 
155 CIRCLE 124,10,10 

160 INPUT "utes erosseg (1-20) ?";s: LET s=INT ABS 5 
: IF s<=0 OR s>20 THEN GO TO 160 
165 LET g = INT íRND*15*s + s) 

170 PRINT AT 1,0;"utes erosseq "\s 


BEEF' .01.1: NEXT 


DEEP .04,10 


171 RÉM A GOLYO LQKESE 
175 FÓR 1 = -15 TO 0. 

ISO CIRCLE INVERSE 1;124,10,10 

185 FÓR 1=2 TO s: BEEP .04, i: PRINT Ai 20-i,i5;("Q“ 
AND i < 10) ; (" c " AND i>=10) : PRINT AT 21-1,15;" ": NEXT 


i 

190 FÓR 1=20-5 TQ g/15: BEEF .04,1: PRINT At i,15;"o 
“: PRINT AT i-1 ,15;" ": NEXT i 
193 RÉM FELTETELVIZSALAT 

195 IF w AND ABS (e-we)<20 THEN GO TO 210 

196 IF r AND ABS te-re)<20 THEN GO TQ 250 

197 IF 5 AND ABS (5-seX10 THEN GO TO 300 

200 LET e=INT ABS <e-g > : IF e>15 THEN GO TO 115 

205 GO TO 350 
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207 RÉM A SOLYO AZ ERDŐBEN 

210 CLS : PRINT "A golyo az erdőbe repült" 

212 LET z = z + l 

215 F'LOT 130,20: DRAW 0,100: DRAW -40,-5: DRAW 45,35 
: DRAW -30,-5: DRAW 35,20: DRAW INVERSE 1; 10,0: DRAW 
35,-20: DRAW -30,5: DRAW 45,-35: DRAW -40,5 
220 DRAW 0,-100: PRINT AT 8,14; “FA— >" 

225 INPUT "utes erosseg (1-20) ? ";s: LET s=INT ABS 
b: IF 5<=0 OR s>20 THEN GO TO 225 
230 LET 5=5*RND 

235 FÓR i=-15 TO 0: BEEP .01, i: NEXT i: BEEP .04,10 
240 GO TO 200 

245 RÉM A GOLYO AZ ÁROKBAN 

250 CLS : PRINT "A golyo arokbaesettí " 

255 FÓR i=20 TO 150 STEP 20: PLOT.RND*1G,i: FÓR j=i 
TO 6: DRAW 20,10: DRAW 20,-10: NEXT j: NEXT í 
260 FÓR i =0 TO 255 STEP 20: PLOT i,20: DRAW 100-i*.8 
,130: NEXT i 

265 LET z =z +1: GO TO 225 

299 RÉM A GOLYO A TÓBAN 

300 CLS : PRINT "A golyo a tóba esett. Élőiről kéz 
dheted ezt a lyukat" 

305 FÓR i = l TO 5: BEEP .5,-10: NEXT i: F'AUSE 100: GO 
TO 105 

350 IF e<2 THEN GO TO 400 

352 CLS 

353 PRINT "távolság: ";e 

355 PLOT 20,70: DRAW 180,0,PI/2: DRAW -180,Ö,PI/2 
360 PLOT 110,70: DRAW 0,30: DRAW 30,-10: DRAW -30,-1 

0 

365 CIRCLE 110+e*8,60,3 

370 INPUT "lyuk (1-20) ? ";s: LET s=INT ABS s: IF s 
=0 OR s>20 THEN GO TO 370 
372 LET z = z + l 

375 LET g=s*RND: GO TO 200 

399 RÉM ÉRTÉKELES 

400 CLS : F'RINT FLASH 1; BRIGHT l;"Talalat" 

405 FÓR i = l TO 3: FÓR j = -10 TO 10: BEEP .04,j: NEXT 
j: NEXT i 
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H 


410 PRINT '"Eredményez;" Pont" 

IF 1<18 THEN PAUSE 200: GO TO 100 
PRINT ' PAPER 2;"E5 ez az on vegpontszama!" 
PRINT ''"Akar meg játszani (i/n) 

PAUSE 0: IF INKEYÍ="i" THEN RUN 


415 

420 

425 

430 




435 


CLB 


PRINT "Akkor viszontlátásra! 


Megjegyzés: Elég jól kihasználja a hang- és grafikai hatásokat a program, bár a 
„golyó a tóba esett" kiírás nem mondható grafikus hatásúnak. A játékos szá¬ 
mára nem követhető sem az akadályok kikerülési módja (ha egyáltalán van 
ilyen), sem pedig a lyuk távolsága és az ütés erőssége közötti összefüggést. 
Az alapötlet viszont jó, érdemes saját fantázia szerint bővíteni! Próbáljuk meg 
pl. az ütés irányát a játékosra bízni! Figyeljük meg, hogy az egyszerű REM- 
kiírások a programlistában milyen nagy mértékben segítik a tájékozódást! 
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BOMBÁZÓ 

Készítette: Farkas Judit 



Leírás: Egy repülőgép halad balról jobbra a képernyőn, egy képzeletbeli város 
fölött. Előre megadható (bár ezen belül véletlenszerűen változik) a házak ma¬ 
gassága és távolsága. A repülőgép, miután a kép jobb szélén elhagyta a várost, 
a bal oldalon egy karakterrel mélyebben újra megjelenik. A pilóta a B gomb 
segítségével szórhatja a bombákat. Ha a repülőgép háznak ütközik, vége a játék¬ 
nak. Az a cél, hogy minél tovább, minél mélyebbre jussunk el a repülővel. 
Vízszintes irányban az M billentyű segítségével rakétákat is ki lehet lőni, de a 
kezdeti öt rakéta, ha nem takarékoskodunk, elfogy. 
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1>DATA 0,0,0,10,16,56,66,146,0,0,56,16,56,124,254 
2 DATA 132,96,34,130,206,156,238,170,40,56,16,56,6 


8,68,40,16 

3 DATA 0,0,16,72,63,72,16,0,0,112,120,127,127 
4,0,0,0,240,154,254,250,80,136 

4 DATA 28,93,42,28,8,8,20,34,28,28,8,28,42,73 
4: LET hs=0 

5 60 SUB 3000 

8 BORDÉR 1: PAPER 7: INK 0: CLS 

9 LET b = 5: LET sc=Ö 


32,6 

20,3 


10 RÉM ** 1-9-16 UDG-k** 


15 RÉM **ERTEKADAS** 

25 INPUT "Hazak magassaga? (1-10)";k: IF k<l OR k>l 
0 THEN 60 TO 25 

26 INPUT "Hazak közti távolság? (0-3)";r: LET r = r + i 
: IF r<1 OR r>4 THEN 60 TO 26 

27 LET k. = k + 2: BRI6HT 1 

29 RÉM ** VAROS KIRAJZOLÁSA** 

30 FÓR f =4 TO 28 STEP r 

40 LET I =RND* 10+k: FÓR g = 21 TO 1 STEP -1: F'RINT AT 
g , f ; " |i": NEXT g: PR I NT AT g,T;CHR$ (145 + RND*1) 

50 NEXT f 

51 FÓR x=0 TO 31: PRINT AT 21,x; INK 2;"®|": NEXT x 

52 BRI6HT 0 
55 LET y= 1 

57 INK 0: PRINT AT 0,0; BRI6HT 0;"P0NT: ";sc;AT 0,2 
2;b;" RAKÉTA “;AT 0,10;"CSÚCS: ";hs 

58 INK 1: POKE 22562,56 
60 FÓR >; =0 TO 30 

64 F’RINT AT y,x; " *Ha»": IF y = 20 AND x = 30 THEN 60 T 
0 2500 

65 RÉM **IRÁNYÍTÁS** 

66 LET U-INKEY*: IF 1$<>“" THEN 60 TO 500 

67 60 SUB 1000 

70 PRINT AT y , x ; 11 " 

80 NEXT x 

85 PRINT AT y,x; " " 

90 LET y = y +1: GO TO 60 
500 IF 1 $ ="b" THEN 60 TO 600 
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510 IF 1I="íb" THEN 60 T0 520 

5 í 5 60 TO 70 

517 RÉM **RAKETA*« 

520 LET b = b-1: IF b< = -l THEN LET b = 0: 60 TO 67 

522 PR INT AT 0,22;b;" RAKÉTA" 

523 FÓR m = :■; + 2 TO >:+8 

525 IF m> = 31 THEN 60 TO 70 

526 LET j = ATTR (y,m): IF j < >56 THEN PRINT AT y,m;" 
60 TO 70 

527 PRINT AT y,m; INK 1j " : BEEP .05,5; P RINT AT y 

NEXT m 

540 60 TO 64 
590 RÉM **BOMBA** 

600 LET e = : LET f=y + l 

610 IF ATTR < -f , e) < >56 THEN 60 TO 700 

620 60 SUB 2000 

630 IF f=21 THEN 60 TO 70 

640 60 TO 610 

700 FÓR g=1 TO 6 

710 60 SUB 2000 

711 IF f=21 THEN 60 TO 70 

712 LET 5c=sc+l: PRINT AT 0,22;h;" RAKÉTA" 

713 RÉM **PONTSZÁMLÁLÁS** 

714 F'RINT AT 0,0; "PONT: ";sc 

715 NEXT g 

716 PRINT AT f-l,e; BRI6HT 1; INK 2; ’*“ 

720 60 TO 70 

990 RÉM **UTKGZES** 

1000 LET 1 =ATTR <y,:< + 2): IF 1=56 OR 1=57 OR 1=58 THEN 
RETURN 

1010 RESTORE 73: FÓR f = l TO 11: READ a,b: BEEF' a,b: N 
EXT i ; DATA .35,- 1 ,.3,-1,.1,-1 ,.4,- 1 ,.25,2,.15,1 ,.25 , 
115,-1,.25,-1,.15,-2,.25,-1 

1011 FÓR {=1 TO 3: FÓR g=0 TO 7: INK g: PRINT AT y,x; 

BEEF' .3—(f/10) ,-g-lÖ: NEXT g: NEXT í 
1015 RÉM **ERTEKELES** 

1020 INK 6: PAPER 0: CL3 : PRINT " A TE PONTJAID S 

ZAMA ";5C;".": IF sc>hs THEN 60 TO 4000 

1030 PRINT . ÚJRAKEZDÉSHEZ NYOMJ!": F'AUSE 0: 6 
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0 TG B 

2000 PR INT AT y , : LET x = >: + !: F'RINT AT y , x ; " 


IF x = 31 THEN PR INT AT y,x;“ 


ET >: = 0: LET y = y + 


05 , 10 : 


2002 60 SUB 1000 

2005 IF f = 21 THEN RETURN 

2010 PRINT AT f,e;"*“: BEEP .02,1: F'RINT AT + ,e; INK 
0; " ": LET f =-f + 1 
2030 RETURN 

2500 F'RINT AT 20,30;“ PRINT AT 20,0;"^" 

2510 FÓR f = 1 TO 150: PRINT AT 20,4; " S"; AT 20,4;"*“: 
NEXT f: BORDÉR 1 

2520 FÓR f = l TO 2: BEEP .2,1: BEEP .1,1: BEEP .15,1: 
BEEP .25,5: BEEP .1,1: BEEP .4,5: PAUSE 25: NEXT i 
2530 CLS : F'RINT AT 0,1; FLASH 1; INK 6; PAPER 0;" G 
RATULALOK, LESZALT 1 " 

2540 LET y=2i: FÓR t = l TO 30: BORDÉR RND+6: LET y=y-2 

1/30: PRINT AT y., f ; " : BEEP (31 -t 5 /300 , -10: PRINT 

AT y, f; " NEXT f: PRINT AT y,f;“ “ 

2541 FÓR -f = 0 TO 30: PRINT AT 0, í ; " *"-;%•": BEEP .05,10: 

PRINT AT 0 , f;" ": NEXT t 

2545 INK 0: PAPER 7 > 

2550 CLS 

2555 LET k=k+l; IF k=0 THEN LET k=l 

2556 LET b=5 

2560 BRIGHT 1: GO TO 30 
2990 RÉM * * U D 6 POKOLASA** 

3000 FÓR -f =0 TO 7 STEP 2: POKE USR " ||i"+ T , 255: POKE U 
SR + 1 , 170: NEXT f 

3002 FÓR f=Ö TO 71: READ a: POKE USR u A "+f,a: NEXT f 

3004 RÉM * # J A T E K ELEJE** 

3005 LET a$ =" 

3006 LET b$="B 0 M B A Z 0“ 

3009 BORDÉR 1: INK 6: PAPER 0: CLS 

3010 FÓR f =9 TO 11: F'RINT AT f,9;a$: NEXT f 

3020 FÓR s = 0 TO 13: PRINT AT s,0; 

3025 IF 5=9 OR 5=11 THEN BEEP .5,5: FÖR t=2 TO 31: P 

RI NT AT s,f BEEP .02,5: PRINT AT s, f; " ": NEXT 


LET k= 1 


i" + F ,255: POKE U 


POKE USR "..x.." + f,a: NEXT f 


liPllfii 
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3030 IF 5=10 THEN BEEP .5,10: FÓR + =2 TO 30: PRINT A 
T s,f IF f>9 AND f<23 THEN PR INT AT 10 , + ;bí íí- 

9) 

3035 IF 5=10 THEN BEEP .02,10: NEXT 
3045 PR INT AT 5,0;" " 

3040 NEXT s 

3070 FÓR g = 1 TO S: FÓR + =0 TO 7: PR INT AT 13,15; INK 
g : BEEP .02, + : NEXT +: NEXT g 

3090 F'RINT AT 21,á;"FOLYTATÁSHOZ NYOMJ I": IF INKEYSO 
"" THEN GO TO 3093: PAÜSE 50: BORDÉR RND*7: GO TO 30 
90 

3091 PAUSE 25: BORDÉR RND*7: GO TO 3090 
3095 CLS 


L CT 

U w 


31 

3170 

3171 

3 ISO 
3990 
4000 
FÓR f 

4 010 
4020 

n a 11 a 
4030 
4100 
4110 


F'RINT AT 21,8; "JO SZÓRAKOZÁST!" 

IF INKEY$< >"“ THEN 60 TO 3175 
PAÜSE 50: BORDÉR RND*7: GO TO 3170 
RETURN 

RÉM **UJ CSÜCS** 

FÓR g=1 TO 3: FQR 
=5 TO -5 STEP -1: 

IF sc<hs THEN 60 


+ =0 TO 5: BEEP .05,+ : NEXT +: 
BEEP .05,f: NEXT f: NEXT g 
TO 4100 

hs=sc: PRINT AT 5,0;"Er igen! Új csúcsot esi 
1 !";AT 12,10;"A CSÚCS: ";hs 

FÓR g =0 TO 30: BEEP .002,g: BEEP .002,0: NEXT g 
F’RINT AT 21,0; "Uj bombázáshoz nyomj egy gombot 1 “ 
FÓR g=ö TO 5: BEEP .05,g: NEXT g: PAUSE 0: GO 


I CT 
!_ !_ ! 


t n 

i u 


ö 


UDG 


A: A- h'H 


• - • I * ** 
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Megjegyzés: Barátságos a bemutatkozás és az értékelés, bár a „FOLYTATÁS¬ 
HOZ NYOMJ" felirat ügyetlenül hangzik. Nagyon hiányzik az útmutatás, 
legalább annyi, hogy melyik gombbal lehet bombázni és lőni. Bár a program 
alapötlete nem új, jól megírt, használható játék. Lehet tökéletesíteni, a REM-ek 
ebben segítenek. Kihasználja a program a gép hanghatásait is. Vigyázat, bombá¬ 
záskor a túl magas házakat egy bombatalálattal nem lehet lerombolni! „Le¬ 
szálláskor" kellemes meglepetés, hogy folytatni lehet a játékot, folytatólagos 
pontszerzéssel. Megtévesztő azonban, hogy a házak magasságának szabályozása 
úgy adható meg, hogy 10 a legalacsonyabb, 1 a legmagasabb értéket jelöli. És 
még valami: ezeknél az ismételt (leszállás utáni) játékoknál mintha a házak ma¬ 
gassága egyre csökkenne (RND-probléma?). 
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PIROS HÁZAK 

Készítette: Radácsy Tivadar 



Leírás: Piros háztetők végtelen sorát kell kerülgetni. A játékos figurája normál 
állapotban mindig balra „húz", tetszőleges billentyű lenyomásával viszont 
jobbra mozgatható. A vízszintes táblák a játékost felfelé mozgatják, és ha eléri 
a képernyő tetejét, a program véget ér, és közli az elért pontszámot, valamint 
az addig legmagasabb rekordot. 


4 RÉM UDG pakolása 

5 DATA 0,8,8,8,255,255,126,60,170,85,170,35,170,85 
,170,85 

6 FGR i =0 T0 15: READ a: POKE USR ,; 4>" + i,a: NEXT i 

7 LET h=1 
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8 F'GKE 23692,-1: LET s = 0: LET u=15: LET p = 10 

9 RÉM -foprogram 

10 F'RINT AT u—1 ,p; “ " 

20 LET p = p — < p >1) 

30 LET p = p+ íINKEYÍC >"")*2*(p<20) 

40 LET n=ATTR <u,p) 

50 IF n = 58 THEN LET u=u-l: BEEF' . i,u 

54 RÉM kirajzolás 

55 IF u=0 THEN SQ T0 100 


60 F'RINT AT u,p;"4." 

70 PR INT AT 21,0; 

80 F’RINT TAE RND*2Ű; INK 2; 

85 FÓR j = l TŰ 10: NEXT j 

87 F;EM pontozás 
90 LET 5=s+u: GO TO 10 



F'RINT 


95 RÉM játék vege 
100 IF h<s THEN LET h=s 


110 F'RINT AT 10,0; INK 1; "ÉLÉRT PONT: ";s;" REKORD: 
";h 

120 FÓR i = 0 TO 100: BEEF' .002,2: NEXT i 
130 F'AUSE 0: CLS : 60 TO 8 


Megjegyzés: Egyik változata a „meteoros" játéknak (I. 12. lista), de a piros há¬ 
zakkal való ütközést az ATTR függvénnyel vizsgáltatja. Nem mulasztja el a 
programozó a zenekíséretet sem. Egészen kezdőknek is jól követhető, mert 
röviclésa megjegyzések útbaigazítanak. 
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AUTÓ 

Készítette: Radácsy Tivadar 



Leírás: Az autót egy kezdeti egyenes útszakasz után véletlenszerű cikcakkok¬ 
ban haladó,úton kell vezetni úgy r hogy az időnként felbukkanó csatornate¬ 
tőkre nem szabad ráhajtani. Q betűvel (balra), P betűvel (jobbra) lehet az autót 
irányítani. Minél tovább jutunk, annál sikeresebb a játék. 


1>REM UDG pakolása 

10 DATA 170,85,170,85,170,85,170,85: FÓR i=Ö T0 7: 
READ a: POKE USR H W" + i ,a: NEXT i 
15 RÉM ertekadas 
30 LET c=13: LET a=ló 
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35’ 

RÉM 

a kezdőpálya 




40 

F0R i 

=0 Tű 21: PRINT 

AT i , 0; “ 


wm 



NEXT i 



50 

PRINT 

AT 10,2;" 

KEZDÉSHEZ"; 

AT 10, 

,22;" 

NYOMJ! " 




60 

RÉM f 

oprogram 




70 

PRINT 

AT 2,a;"V" 




95 

RÉM i 

ranyitas 




100 

LET a 

= a+(INKEY$="p") - 

UNKEY$="q") 



120 

LET c 

=(c+INT (RND*5) - 

2) 



140 

LET c 

= c-(2*(c >22)) + < 1 

*(c<2) ) 



150 

RÉM a 

11ando palya „ 




160 

PRINT 

AT 21,1;" 



II 

170 

PRINT 

at 2 1 , c ;" wmm 

mmmm' 



180 

60 T0 

190+(60*(RND > . 9 

2) ) 



190 

PRINT 

AT 21,31;" 

üü" : F'OKE 

23692, 

,255 

195 

RÉM ütközés figyelése 




200 

60 T0 

70+ ( (ATTR (2,a) 

< >57)*140) 



205 

RÉM 

ukozes, játék ve 

ge 



210 

PRINT 

AT 2, a; 




220 

F0R i : 

=5 T0 0 STEP -.1 

: BEEF' . 002, i: 

BEEP 

. 002 , i: 

NEXT 

i 




230 

F'AUSE 

0: RUN 




245 

RÉM c 

sátor na-f edel 




250 

F'RINT 

AT 21,c + 4; " : 60 

T0 190 




Megjegyzés: Szintén a géppel való ismerkedésre alkalmas programlista. A játék 
fogyatékossága leginkább az értékelés hiánya. Sem pontot, sem egyéb vissza¬ 
jelzést nem kap a játékos az elért eredményről. Lehet tehát módosítani és 
kiegészíteni az alapötletet, az eligazodást segítő REM-ek alapján. 
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KRÁTER 


Készítette: Radácsy Tivadar 



Leírás: Az irányítható űrhajóval kell leszállni a Hold krátereibe. Bármelyik krá¬ 
terbe le lehet szállni, de vigyázni kell, nehogy a falnak ütközzön az űrhajó 
bármelyik része. Az üzemanyaggal is gazdálkodni kell, mert ha elfogy, akkor az 
űrhajó kormányozhatatlanná válik és lezuhan. A kapott pontszám a nehézségi 
foktól függő szorzószámtól és a megtakarított üzemanyagtól függően változik. 
Az űrhajó irányítása: 

O — balra 
P — jobbra 
0 - felfelé 
A - lefelé 
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10 RÉM <C) 1985 t 
15 RÉM **ERTEKADAS«* 

20 LET h5=0 
25 LET 1=0 

30 S0 SUB 900: GO TO 800 
40 INK 7 

45 RÉM **AZ ŰRHAJÓ** 

50 LET a$ = " " 

60 LET b$ = " MSL " 

70 LET c ■*="/'' “ V 

75 RÉM **AZ ŰRHAJÓ VÁLTOZÓI** 

80 LET >: = INT <RND*20) + ls LET y=l: LET dx=0: LET dy = 
0: LET 5=255 

85 RÉM **IRANYITAS** 

90 IF ATTR (y+3,x+l>=14 THEN GO TO 580 
100 LET dx = dx + (dx <1> * < INKEY $=■ “p• > - Cdx >-1) * CINKEY* ="o 
" > 

110 LET dy = dy+ ídy<1)*(INKEY$ = "a")-(dy> — 1)*(INKEY$ = "q 
") 

115 RÉM **A CSILLAGOK** 

120 INK 7: PLOT 64,40: PLOT 240,160: PLOT 100,100: P 
LÓT 200,140: PLOT 60,80: PLOT 130,85: PLOT 80,130: PL 
OT 150,150: PLOT 225,60: PLOT 180,110: PLOT 130,120: 
PLOT 19,170: PLOT 115,160 
125 RÉM **ELHOZDULAS*» 

130 LET a=x: LET b=y 

140 LET x=x+dx: LET x=x-(x>28>+(x<2): LET y=y+dy: LE 
T y=y — íy>17> + (y<2> 

145 RÉM **UTKOZES FIGYELÉS** 

150 FÓR n=0 TO 2: FÓR m=0 TO 2: IF ATTR (y+n,x+m>=8 
OR ATTR (y*n,x+fli)=15 THEN GO TO 530 
160 NEXT m: NEXT n 
165 RÉM **REGI POZICIO TORLES** 

170 IF d x = 1 THEN PR I NT AT y,a;" ";AT y+l,a;" ";AT y 

+ o = . » « 

= ? ® j 

180 IF dx =-1 THEN PRINT AT y,a+2;" ”;AT y + l,a + 2;" " 
;AT y+ 2,a+2; " " 

190 IF dy=1 THEN PR INT AT b,x;" 

200 IF dy = — 1 THEN PRINT AT b + 2,x;" 
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2í0 IF dx*dy=0 THEN GO TO 240 

220 IF dy= 1 THEN PR INT AT b 

230 IF dy=-i THEN PRINT AT b+2,x-l;“ 

235 RÉM **UJ PÓZ. RAJZOLÁS** 

240 PR INT AT y,x;a$;AT y +1,x;b*;AT y+2,x;c$ 

250 BEEF' .02,40-y: IF Ís + D/GOINT ( <s + i')/8> THEN P 
RINT AT 21,5/8-1; INK 2; PAPER 0;"«" 

260 IF (s +1 > / 8 = IN T (fs+D/8) THEN PR I NT AT 21,5/8-1 
; PAPER 0;" 11 

270 LET 5=5-4: IF s<56 THEN GO TO 750 
280 GO TO 90 


285 

290 

300 

310 

320 

330 


RÉM **A PALYA KIARJZOLASA** 

BORDÉR 0: PAPER 0: INK 7: CL3 

PR INT PAPER 1; INK 6; A T 13,12;" 11 

PR INT PAPER 1; INK 6; AT 18,4; " 

F'RINT PAPER 1; INK 6; AT 1 9 ,27; " 

PR INT INK 2;AT 21,0;"Benzin 


340 F'RINT FLASH 1; INK 6; PAPER Í;AT 19,7; "x5"; AT 1 
4,ló;"x2";AT 20,27;"x50" 

350 PAPER i: INK 0 


360 

PR INT 

AT 

20, 

0 

■ 

J 

li 



ti 

; AT 

jU 

0,30; 

ti II 











370 

PR INT 

AT 

19, 

0 

a 

J 

ii 

";AT 19,9;" 





». 

AT 19, 

31; 

II li 








330 

PR I NT 

AT 

u 

18, 

0 

a 

? 

II 

";AT 18,31;" ";AT 

18,: 

11; 

II 


390 

PR INT 

AT 

17, 

0 

a 

1 

li 

•fai"; AT 17,9;"r 





•“HMI! 

; AT 17 

,31 

. 11 i 

1 

FI 








400 

PRINT 

AT 

10 , 

0 

a 

J 

II 

";AT 16,10;" f" 





11 ; AT 

16,31 

. JJ 

J 

1! 








410 

P RIN T 

AT 

j nr 

iü, 

0 

a 

5 

il 

";AT 15,11;" 




,Hí i| 

M ; AT 

15,3 0; 

" fai. 

ii 








420 

PRINT 

AT 

14, 

0 

a 

J 

11 

jtó";AT 14,11;" 

» a 

J 

AT 

14, 

1 

8 ; " 

II 

; AT 

14 


—r 

ő 

0; " 

li 





430 

PRINT 

AT 

13, 

0 

a 

« 

li 

T;AT 13,11;" 

"; AT 

13,21 

a 

J 

H -.sí 

Y; AT 

4 **t *T _ : 

1 • j , • j u; 

1 


ii 






440 

P RIN T 

fx T 

H i 

12, 

0 

a 

J 

ii 

T;A T 12,11;" 

: AT 

12, 

? 1 • 

1 <*- * y 

li 

«*, 

* 

AT 12, 

v 9 • 

7 j 

" ftfe 


1 

1 
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II 


450 PRINT AT 11,0;" jS";AT 11,29;" 

460 PRINT AT 10,0;" jfll' ! ;AT 10,28; “ lto, " ; AT 11,1 

1; " r "T; AT 11,21; T T 
470 PRINT AT 9,0;" jé" \ AT 9,27;"|fc 

430 PRINT AT 8,0;" jSi";AT 8,27;" 

490 PRINT AT 7,0;" 'T" 'T;AT 7,27; ’T' 

500 PRINT AT 6,28;'T ";AT 5,29;’T' ";AT 4,30;"f 

";AT 3,31; " ";AT 2,31; "pr" 

510 PAPER 0 
520 RETURN 

530 RÉM **R0BBANA5** 

535 PRINT AT y-1,xAT y,x-1;"BANGí";AT Y + 1,X 
; ■. »" 

540 FÓR 1=1 TO 15: BEEP .05,40: BEEP .05,30: NEXT I 
550 PRINT AT 1,11;"JÁTÉK VEGE" 

560 PRINT AT 4,1;"NYOMJ" 

570 GO TO 670 

590 RÉM **SIKERES LESZÁLLÁS** 

600 PRINT AT 1,8;"GRATULÁLOKí" 

610 PRINT AT 4,1; "PONT: " 

620 LET t = 2: IF >:<12 THEN LET t = 5 
630 IF x >23 THEN LET t = 50 
640 LET 11=(5-55) 

650 PRINT 111 t; " = ";: LET 1 = 1 +11 *t: PRINT 
1 

660 FÓR n=1 TO 10: BEEP .05,1: BEEP .05,5: BEEP .05, 
8: BEEP .05,13: BEEP .05,8: BEEP .05,5: NEXT n: BEEP 
. 06,1 

665 CLS : GO SUB 290: GO TO 40 

669 RÉM **JATEK VEGE** 

670 IF INKEYÍO"" THEN GO TO 670 
680 IF INKEY$="" THEN GO TO 680 
690 CLS 

700 IF 1>hs THEN PRINT .UJ CSÚCS!!!" 

710 IF l>hs THEN LET hs=l 

720 PRINT -"A REKORD : ";hs;''"A PONTOD: ";1 

725 FÓR i=0 TO 100: NEXT i: PAUSE 0 
730 IF INKEYÍO"" THEN GO TO 730 
740 GO TO 840 
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750 FÓR i=0 TO 2 

760 LET a = ATTR (y+3,x+i): IF a<>7 THEN 60 TO 530 
770 NEXT i 

780 F'RINT AT y + l,>:;a*;AT y + 2,>;;b$;AT y+3,x;c$;AT y , >: 

LET y=y+l: BEEP .02,40-y 
790 60 TO 750 

800 BORDÉR 0: PAPER 0: INK 7: CLS 
805 RÉM **INFORMACIOK** 

810 PR I NT TAB 9 5 11 1 nst ruk c i ok " : PRINT TAB 9;"- 

_II 


812 F'RINT AT 4,0;" Szállj le az űrhajóval az hold- b 
éli tájon! 0 -val balra p-vel jobb 

ra Q-val fel 

A-val lefele ira- nyithatod az űrhajódat." 

815 F'RINT AT 20,0;“ Leszálláshoz felkészültei? 

(Ha igen, nyomj egy gombot)" 

820 IF INKEY$ ="" THEN 60 TO 820 

825 60 SUB 290 

830 60 TO 40 

860 60 TO 25 

895 RÉM **UD 6 -k** 

900 DATA 0,0,3,7,23,15,15,23,0,126,255,255,255,255,2 
55,255,0,0,192,224,232,240,240,232,7,3,3,7,7,7,15 *»3 
910 DATA 224,192,192,224,224,224,240,232,22,20,60,32 
,96,64,64,224,60,60,60,0,0,0,0,0,104,40,60,4,6,2,2,7 
920 DATA 255,24,255,255,255,255,255,255,62,.62,62,62, 
255,255,63,63,63,63,62,54,54,54,119,119,1,1,1,1,1,1,1 
,1 

930 DATA 255,127,31,7,3,3,1,1,0,128,224,248,252,252, 
254,254,255,254,248,224,192,192,128,128,0,1,7,31,63,6 
3,127,127 
960 RESTORE 900 

970 FÓR i =0 TO 127: READ-a: FOKÉ USR " ;J i" + i,a: NEXT 
i 

980 RETURN 


UDG 

* m j 1, r - ü « jri* 1 *s hk r m 




Megjegyzés; A játék bevezetője egy tájékoztató, igen, így kéne másutt is. 
A „NYOMJ" ugyan udvariatlan, (bár az angol „PRESS" szó magyar megfe¬ 
lelője). A játék maga kidolgozott, nem maradtak el sem a hanghatások, se a 
REM-ek. 
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TÁLTOS A KAKTUSZOK KÖZÖTT 

Készítette: Radácsy Tivadar 



Leírás: A képernyőn egy sivatagi táj jelenik meg, kétoldalt egy-egy cowboy. 
A kaktuszok és a ló felfogják a lövéseket. A játéknak ebben a változatban 
soha nincs vége. A pontszám úgy álakul, hogy ha a játékos lövi ki az ellenfelet, 
akkor eggyel nő, ha a játékost találja el a másik cowboy, akkor eggyel csökken 
a pontszám. Irányítás:' 

0 - felfelé 
A — lefelé 
P — lövés 

A program irányítása az UDG-k (programozott karakterek) miatt RUN 500 
utasítással történik. 


10 RÉM Értekadasok 
20 GO SUB 380 

30 BORDÉR 6: PAPER 6: IMK Is LET 5=0: LET hs=0 
35 RÉM Kirajzolás 
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>1 


40 CLS : PR INT PAPER 1; INK 7;" PONT : ”;s; 

REKORD : ";h5 
50 FÓR i=l TO 4: LET a=i*3+INT (RND*3>: LET b=i+2+I 
NT (RND*6>: IF RND>.5 THEN LET b=b+14 

60 PR INT GVER 1; INK 4;AT a , b ;" Él*"; AT a+l,b; H U 1 
"; AT a+2, b;" V " 

70 NEXT i 

80 LET a = INT (RND*18>+2: PRINT INK 0;AT a,14;" 

"; AT a+1,14;" rfTÍ" 

90 LET y 1 = 4: LET y2=10 
95 REIi Foprogram 

100 LET y2=y2+((RND>.5) OR <y1>y2))-((RND>.5) OR (yl 
<y2)): IF y2>=20 THEN LET y2=19 
110 PR I NT INK 0;AT yl-1,1;" ";AT yl + 2,1;" ";AT y2 

-1,29;" "; AT y2+2,29;" "; INK 2;AT y 1,1; ’t*"; AT y 

1 + 1,1;" l "; AT y2,29;" ";AT y2+1,29;" 1" 

120 LET yl=y1+(INKEY$="a">*(yl<19>-<INKEYÍ="q")*(y1> 
-2) 

130 IF INKEYf="p" THEN GO SUB 160 

140 IF y2=y1 OR y2=y1 +1 AND RND>.3 THEN GO SUB 270 

150 GO TO 100 

155 RÉM A te levesed 

160 FÓR i=3 TO 29: IF ATTR (y1 , i><>49 THEN GO TO 19 

0 

170 PRINT AT y 1, i ; " - ": BEEP .01,20: PR INT AT yl,i;" 


180 NEXT i 

190 IF ATTR (y1,i)=50 THEN GO TO 220 

200 LET k = 4: IF ATTR (yl,i>=48 THEN LET k = 0 


205 RÉM A halai 

210 FÓR n=0 TO 6: PRINT OVER 1; INK n;AT yl,i}"*": 
BEEP .05,n: NEXT n: PRINT OVER 1; INK k; PAPER Ó;AT 
y 1, i;"*": RETURN 

220 PRINT INK 2; AT y2,29;“ "; AT y2 +1,29; " 

230 PAUSE 20: FÓR i=l TO 10: BEEP .02,30: BEtP .02,4 
0: NEXT 1 


240 RESTORE 


FÓR n=l TO 11: 


READ a,b: PAUSE 


BEEP 


a,b: NEXT n 
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250 LET 5=5+1: IF s>hs THEN LET hs=s 

260 60 T0 40 

265 RÉM Az o levese 

270 FÓR i=28 TO 2 STEP -Is IF ATTR Íy2,i)<>49 THEN 
GO TO 300 

280 PR INT AT y2,i;" DEEP .01,30: PRINT AT y2,i;“ 

II 

290 NE XT i 

300 IF ATTR (y2,i> =50 THEN GO TO 330 

310 LET k = 4: IF ATTR <y1,i> =48 THEN LET k=ö 

315 RÉM A Halai II. 

320 FOF; n=0 TO 6: PRINT OVER 1; INK n; AT y2,i;"*": 
BEEP .05,n: NEXT n: PRINT OVER 1; INK k; PAPER 6;AT 
y2,i;“*": RETURN 

330 PRINT INK 2; AT y 1,0; " "; AT yl + 1,0;" w-W 

340 PAU3E 20: FÓR i=l TO 10: BEEP .02,10: BEEP .02,2 
0: NEXT í 

350 RESTORE : FÓR n=l TO 11: READ a,b: PAU3E 1: BEEP 
a,b: NEXT n 

360 LET 5=5+1: GO Tű 40 
365 RÉM Gyaszinduio 

370 DATA .66,0,. 66,0,.2,0,.66,0,.46,3,.2,2,.46,2,.2, 
0,.46,0,.2,-1,.66,0 
375 RÉM Intormaciok 

380 GO SUB 500: CL3 : PRINT "Táltos lo a kaktuszok k 

oz ott. "; AT 2,10; " INFORMÁCIÓK"; AT 3,10;"-";fi 

T 6,0;" Te a játékban a baloldali cow-boy vagy. Le k 
ell Ionod a másik oldalon allo ellenséget. A koz- tét 
ek levő akadályok felfogjak a lövedéket!" 

390 PRINT AT 12,0;" A játék addig tart, amig meg n 
em unod." 

400 PRINT AT 15,0;" A pontod ha te lövöd le ot, a 

kkor i-el no, ha o lo le te- ged, akkor 1-el csőkké 

n. A csúcsa legmagasabb értékét őrzi." 

410 PRINT AT 21,13;"NYOMJ!" 

450 PAUSE 0: RETURN 

495 RÉM UDB-k 

500 DATA 12,30,63,63,63,63,63,63,0,0,0,0,0,24,60,60, 
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3,63,63,3 
DATA 7,7 
,28,62,28 
DATA 60, 
124,56,56 
DATA 0,0 
,0,0,0,60 
DATA 0,0 


63,6 
510 
,128 
520 
,56, 

530 
26,0 
540 

,247 7,14 

550 
560 

II 


+ i » 

570 


DATA 242 
RESTORE 
a: N E X T i 
RETURN 



UDG 

É ,1 1 il IS £> ■*H»" % •*» 41 J ka* “■ llfll ’*«» »h.. " ? 

Megjegyzés: Kezdjük a címmel. Jobb lett volna, ha a táltos helyett egy élet¬ 
szerű paripa kerül a képernyőre, amelyik nem állja a lövést. A golyózáport 
egyébként a kaktuszok sem bírják. Könnyen kiküszöbölhető lett volna a 
bonyodalmas RUN 500 indítás. Olykor a halott cowboy felett még megmarad 
valami kísérteiként is. Ennyi kritika után mondhatnánk, hogy a program 
inkább az az állatorvosi „beteg ló" a kaktuszok közt, ami jól példázza a játék¬ 
program-betegségeket. 
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SÍELŐ 

Készítette: Radácsy Tivadar 



Leírás: Fák és zászlók között haladó síversenyzőt lát a játékos, akit a felfelé 
haladó akadályok között a nyílgombokkal lehet jobbra, ill. balra irányítani. 
Fának ütközve a figura „tolókocsis"-ra változik, és egy figyelmeztető kiírás 
jelenik meg a képernyőn. 

10 RÉM **ERTEKADAS** 

20 BORDÉR 7: PAPER 7: INK 0: CLS 

40 CLS : LET X=15: LET Y=!l: LET F=Ö: LET SC=0: LET 
S = 10 

50 PR INT AT 21,0;: G0 T0 1 10 
55 RÉM **IRANYITAS** 
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LET X = X + ( INKEY$="3 ,! ) * í X<29 > - (INKEY$="5" 


60 LET F'=X : 
> * <X > 1) 

70 PR INT 


75 RÉM **UTKŰZES FIGYELÉSE** 

80 IF ATTR (Y,X > < >56 0R ATTR (Y,X+i)<>56 OR ATTR (Y 
+1,X)< >56 OR ATTR (Y + l,X + l><>56 THEN 60 SUB 270 
85 RÉM **KIRAJZOLAS#* 


90 F'RINT AT Y -1, P ; " "; AT Y , P; " "; AT Y,X 

Y + 1 , X ; " n " 

100 BEEP .01,35: PRINT AT 21,0;: RETURN 
105 RÉM * * P A L Y A KIRAJZOLÁSA** 


AT 


110 POKE 23692,0 

120 LET T = IN T (RND*18): LET V=4+INT ÍRND*10): PRINT 


INK 4; AT 21,T;" ,éK" 
130 PRINT INK 4;AT 
6UB 60 


AT 21,T + V;» J Jk": GO SUB 60 
21 ,T; "A'} AT 2 1 , T + V; " .^k.": 


140 F'RINT 
SUB 60 
150 F'RINT 
SUB 60 


INK 4;AT 2i,T; 
INK 4;AT 2i,T; 


A, ,! :AT 21,T+V; " Jtk.” : 
118 "; AT 21 , T + V; " » “ • 


60 

60 

60 


160 F'RINT ; 60 SUB 60 
170 PRINT : 60 SUB 60 

180 IF X>S AND X < S + 9 THEN LET SC = SC+(F>0> 

190 PRINT : 60 SUB 60 
200 PRINT : 60 SUB 60 

210 LET S = 5+1 NT (RMD*16): PRINT INK 1 j AT 21,S;"-C; 
INK 2; AT 21,3 + 10;": 60 SUB 60 

220 PRINT INK i;AT 21,S;" ; INK 2;AT 21,3 + 10;" |" 

: 60 SUB 60 


230 FÓR 1=1 TO 4: PRINT : 60 SUB 60 
240 NEXT I 


250 LET F=F+1 
260 60 T 0 110 

265 RÉM **UTKOZES FIGYELÉS** 

270 IF ATTR <Y,X)=57 OR ATTR <Y,X +1)= 57 OR ATTR (Y+l 
»X > = 5 7 OR ATTR (Y+l,X + l)=57. THEN LET 0 = 1: 60 TO 360 
280 IF ATTR (Y,X»=58 OR ATTR (Y,X+l)=58 OR ATTR (Y+l 
,X>=58 OR ATTR (Y+l,X+l)=58 THEN LET 0=2: 60 TO 360 
290 l-OR 1 = 1 TO 10: BEEP .1,-10: BEEP .1,-25: NEXT I: 
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PR I NT INK 2; FLASH i;AT Y-1,P;" JTjAT Y , P; " ■•íj'ü:*" s F 
QR 1=60 T0 -30 3TEP -1: BEEP .01,1: NEXT I 
295 RÉM **JATEK VEGE** 

300 PR I NT INK 2; AT Y -1 , P; " Jf";AT Y , P; 11 ..f#"; A T 0,0; 
FLASH 1;"FANAK MÉNTÉL, HAVER!";AT 2,4;“PRÓBÁLD MEG M 
EGEGYSZER!" 

3í0 F'RINT FLASH 1; AT 21,1; "ÜJ PRÓBÁLKOZÁSHOZ NYOMJ! 


320 IF F< >0 THEN F'RINT AT 10,0; "ÉLÉRT TELJESITMENY: 

";S C;" Z. / ";F; “ FA." 

330 FÓR 1=1 TQ 50: NEXT I 

340 IF INKEY$="" THEN GO TO 340 

350 GO TO 40 

360 PR INT AT Y-1 , X -1; INK C;" " 

370 F'RINT AT Y , -1; " "; AT Y + 1,X-1;“ "; AT Y+2,X- 

1," LET Y = Y +1 

380 IF Y = 20 THEN L.ET Y = Y-1 
390 RETURN 


495 

500 

200 , 

16 

510 

,15, 

520 

4,32 

530 

4,6, 


550 


RÉM **UDG-k** 

DATA 1,3,3,1,3,15,19,43,128,192,192,129,192,240, 
212,11,11,14,12,12,9,8,3,208,208,112,48,43,16,16, 

DATA 3,15,63,255,63,15,3,1,1,1,1,1,1,1,1,1,1,3,7 
31,63,127,255,128,192,224,240,248,252,254,255 
DATA 3,3,3,3,0,0,0,0,192,192,192,192,0,0,0,0,0,6 
,32,112,240,251,252,0,0,0,96,144,136,8,7 
DATA 60,126,126,60,31,60,124,252,0,7,7,5,13,3 6 , u 
132,28,34,85,73,213,34,28 

FÓR 1=0 TO 119: READ A: POKE USR " J" +1,A: NEXT 


I: RUN 


UDG 

J L f "i ■■“»ü I A k. B “ 4... .t- -I? Iá- 


Megjegyzés: Itt ismét hiányzik a játékost tájékoztató kiírás. A program 
RUN 500 utasítással indul, az UDG-k (programozható karakterek) miatt. Né¬ 
hány szépséghiba előfordul ebben a játékban is. A „találatot (fának ütközést) 
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jelző kiírásban pl. a „FA" szó F betűje az egyik sor végén, az A betűje a követ¬ 
kező sor elején van. Mulatságos ötlet viszont baleset után az átváltás a toló¬ 
kocsis figurára. Néhány RÉM itt is lehetőséget ad a továbbfejlesztésre. A lát¬ 
vány esetleg bővebb zenekíséretet is megérdemel, és egyéb, pl. az időtől függő, 
célba érkezésig tartó értékelést is be lehetne építeni. 



LABIRINTUS 


Készítette: Radácsy Tivadar 



Leírás: A szokásos labirintusfeladat saját készítésű változata. Betöltés után meg 
lehet adni a nehézségi szintet (1-10), a program ennek megfelelően egy labi¬ 
rintustérképet generál. Ez bármikor, de összesen csak háromszor a T betű 
lenyomásával hívható. A képernyőn az égtájaknak megfeleltetett számok mu¬ 
tatják az irányítást. A program a helyes út megtalálásakor zenés gratuláció után 
megkérdezi, hogy kíván-e a játékos még egyszer játszani, és ha igen, újraindul. 
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1> REbTŰRE 1: FÓR n = OTO 18: RE AD ai 
: NE XI n:DAT A 33,0,88,6,24,14,32,52, 
, 194,93, i2,7,2 01 


P0KE USR " V" +n , m 
3,35,194,95,127,5 


5 LET tk = 3: PAPER 
1(704) : LET f a 1= 0 


INK 7: BORDÉR 1: CLS : DIM m 


6 INPUT "Nehézségi szint (1-10) ";d: LET d = d/10 
10 LET 1 = 20: LET c = 16: LET 1d=-1: LET cd = 0 
20 PR INT AT l,c;"Sr 
25 LET m$(l*32+c+í)= ! 'il" 

30 LET 1 — I+1d: LET c = c + cd 
45 IF RND >d THEN 60 Tű 120 

50 IF INT (1/2)01/2 OR INT (c/2!Oc/2 THEN 60 TO 
120 

60 LET r = INT (RND*4) 

70 LET 1 d= (r = 2)-(r=3): LET cd= !r = 0 )-( r = 1 ) 

80 B E E P .01,R N D * 5 0 
120 IF 1=0 THEN 60 TO 160 
130 IF 1 +1d>20 THEN LET 1d = -1d 
140 IF c + cd< 1 OR c + cd >30 THEN LET cd = -cd 
150 GO TO 20 


160 LET e=c 

1000 RESTORE 1000: DIM dió): FÓR n=l TO 6: READ din): 

NEXT n: DATA 22,19,17,15,13, 12 
1010 RESTORE 1020: DIM pió): DIM c(4,6,2>: FÓR m=l TO 
4: FÓR n=1 TO 6: READ c(m,n,l): READ c(m,n,2): NEXT 
n: NEXT n 

1020 DATA 0,0,22,22,41,41,50,58,73,73,36,86 
1030 DATA 0,174,22,152,41,133,58,116,73,101,86,88 
1040 DATA 174,174,152,152,133,133,116,116,101,101,38, 
88 


1050 DATA 174,0,152,22,133,41,116,58,101,73,88,86 
1060 LET 1=20: LET c = 16: LET Id=-1: LET cd=0 
2000 FÓR n=i TO 6 

2010 LET a=l*32+c+l+(32*n*ld)+(n*cd) 

2020 IF (1+ n>20 AND 1d =1) OR (1 -n< 1 AND ld=-l> OR (c- 
1<1 AND cd =-1) OR (c +1>31 AND cd = l) THEN 60 TO 2030 

2021 IF cd = 1 AND 1d = 0 THEN LET p(n) = (n* (a) =" "5 

2022 IF cd = -l AND ld=ö THEN LET p(n5 = (<a + 32) = H ü") 
+2*((a-32)=" SfflT )+4*(m$(a)=" “) 
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2023 IF cd = 0 AND 1d = 1 THEN LET p (n ) = (m$ < a+1) = " iü")+2 
*(m$(a-l)="il" >+4*<m$<a)=" ") 

2024 IF cd=0 AND 1d = -1 THEN LET p <n) = <(a-1)="ffl8") + 
2*(mí(a+i)=" iH") +4*(m$(a)=" ") 

2025 IF p <n)>4 THEN LET p(n)=4: GO TO 2030 

2026 NEXT n 
2030 GO BÚB 9000 

2040 IF c = e AND 1 = 1 THEN GO TO 3000 
2045 PR I NT AT 9,23; "IRÁNY: ";AT 1 1,23; ("ÉSZAK. ■ AND ld 
= -l AND cd = Ö) + (" DEL " AND ld = l AND cd = 0) + ("KELET " 
AND 1d=0 AND cd=1)+í"NYUGAT" AND ld=0 AND cd=-l> 

2059 F'RINT AT 15,24;" A "; A T 16,24;" 7"; AT 17,23; "< 5 8 
>";A T 19,22;"T = TERKEP" 

2060 PAUSE 0: LET z$=INKEY$ 

2061 IF zí="t" AND tk>0 THEN BEEP .2,60: CLS : LET t 
k = t k-1: PRINT m$: PR INT AT 1 , c; FLASH 1; PAPER 2;" + "; 

INYERSE 1;AT 0,e;"E": PAUSE 0: CLS : GO TO 2000 

2062 BEEP .02,RND*30 

2065 IF z $■=" 7" THEN LET 1 = 1 +1 d : LET c = c + cd: LET p(l) 
= p < 2): LET p(2)=p < 3); LET p < 3)=p < 4) : LET pí4)=p(5): L 
ET p(5)=p(6): FÓR n=ó TO 6: GO TO 2010 
2080 IF z$ ="5" AND 1d = -1 AND cd = 0 THEN LET ld = 0: LET 
cd=-l: GO TO 2000 

2090 IF z$ = "5" AND 1d=1 AND cd=0 THEN LET ld=0: LET 
cd=1: GO TO 2000 

2100 IF zí ="5" AND 1d = 0 AND cd = -l THEN LET 1d= 1: LET 
cd=0: GO TO 2000 

2110 IF z$="5" AND 1d = 0 AND cd = l THEN LET ld = -l: LET 
cd = 0: GO TO 2000 

2120 IF z$="8" AND ld = -l AND cd = 0 THEN LET 1d = 0: LET 
cd=1: 60 TO 2000 

2130 IF z$ ="B" AND ld = l AND cd = 0 THEN LET 1d=0: LET 
cd=-1: GO TO 2000 

2140 IF z $= 11 8" AND ld=0 AND cd = l THEN LET ld = l: LET 
cd = 0: GO TO 2000 

2150 IF z$ ="8" AND 1d = 0 AND cd = -l THEN LET ld = -l: LE 
T cd = 0: GO TO 2000 
2160 GO TO 2060 

3000 CLS : PRINT AT 10,8;" GRATULÁLOK FÓR n=l TO 
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300: BORDÉR RND*7: BEEP .002,n/5: NEXT n 
3020 CLS : BORDÉR i 

3030 Dili a$(l): INPUT "Játszol megegyszer? (i/n) L 
INÉ a$: IP a$="i" THEN RUN 
3040 IF a$ ="n " THEN STOP 
3050 GO TO 3030 

9000 CLS : PLOT 0,0: DRAW 0,174: DRAW 174,0: DRAW 0,- 
174: DRAW -174,0: FÓR n=l TO 5 
9010 FÜR n>= 1 TO 4 

9015 IF p i n) =4 THEN LET -fal=n: GO TO 9060 
9020 PLOT c(m,n,1),c < m,n,2! 

9040 IF <m<3 AND (p(n>=0 OR p(n)=2)> OR (m>2 AND (p(n 
)=Ö OR pín) = l)) THEN DRAW c(m,n + 1,1)-c(m,n,1) , c(m,n + 
l,2)-c(üi,n,2) 

9045 NEXT m 
9050 NEXT n 
9060 FÓR n=1 TO 6 

9065 IF fal=n THEN GO TO 9110 

9066 IF n=6 THEN GO TO 9090 

9070 IF p(n)=1 OR p(n)=3 THEN PLOT c(2,n,1),c(2 , n,2) 
: DRAW 0,c(1,n,2)-c(2,n,2): PLOT c<2,n+l,1)-d(n),c(2, 
n + 1,2): DRAW din),0: DRAW 0,c(1,n +1,2)-cí2 , n +1,2): DR 
A W - d (n) , 0 

9080 IF p (n) =2 OR p(ni=3 THEN PLOT c (3 , n , 1) ,.c (3 ,n , 2) 
: DRAW 0,c(4,n,2)-c(3,n,2): PLOT c(3,n + 1,1)+ d(ni , c(4 , 
n+1,2): DRAW —din),0: DRAW 0,c(3,n+1,2)-c<4,n+1,2): D 
RAW d(n),0 
9090 NEXT n 
9100 RETURN 

9110 LET n = fa 1 : LET f a 1 = 0: PLOT c(l,n,l),c(l,n,2): DR 
AW 0,c(2,n,2)-c(1, n , 2> : DRAW c(3,n,1)-c<2,n , 1) , 0: DRA 
W 0,c(4,n,2)-c(3,n , 2): DRAW c(i,n,l>-c(4,n,l>,0: RETU 
RN 
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Megjegyzés: Sajnos, akadnak programhibák a sok jó ötlet között. A 10-es ne¬ 
hézségi foknál, úgy látszik, végtelen ciklusba jut a program. Bizonyos esetekben 
könnyen „kikerül" a játékos a labirintusból, ilyenkor a látható ábra nem felel 
meg a labirintus térképének. A programlista nem tartalmaz megjegyzés- (REM-) 
sorokat, így a program kiegészítése, módosítása elég nehézkes, de lehet próbál¬ 
kozni! 
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METEOR 

Készítette: Dárday Zoltán 


Leírás: Az a feladat, hogy a képernyőn felülről érkező csillagok között manő¬ 
verezzünk úgy, hogy a csillagoknak nem szabad nekimenni. Az űrhajót a 
kurzorgombokkal lehet irányítani. 

3 RÉM METEOR 
5 CLEAR 29999 

10 BORDÉR 1: PAPER 1: INK 6: CLS 
30 PR INT AT 10,10;“ * METEOR * “ 

60 REST0RE : DATA 16,16,56,56,108,124,108,40 
70 POR i=0 T0 7: READ a; P0KE USR " Á" + i,a: NEXT i 
75 RÉM GÉPI KOD BETÖLTÉS 

80 F0R i=0 T0 50: READ a: POKE 3000Ö+i,a: NEXT i 
90 LET 2=17: LET R=ü 
95 RÉM KEZDET 

100 LET k =-24: INPUT “PRESS " "ENTER""" , LINE qí 
103 RANDOMIZE : CLS 
105 RÉM FOLYTATÁS 
110 LET =:•: + ! 

115 BEEP .008,10 

130 IF SCREENÍ (23,z}<>"*" THEN 60 TO 300 
135 RÉM HIBA 

140 BEEP .1,-5: BEEP .1,20 

200 PR INT FLASH 1 ; AT 10,10;" SCORE ";#0;AT 1, 

-r . I‘ H 

J 

205 F'RINT AT 5,10;" * METEOR * ": LET z = 17 
210 IF X >R THEN LET R=X: PR INT FLASH 1;AT 13,9;" N 
EW“ 

220 PR INT FLASH 1;AT 13,13;“ RECORD ";R;“ " 

230 GO TO 100 
295 RÉM MOZGATÁS 


50 



300 LET z=z + (INKEY$ = "8' ! AND z<31) - (INKEY*="5" AND z> 
0 ) 

310 F'RINT #0; AT 1 , z ; “ A " 

320 LET a=INT ÍRND*32) 

330 LET b = INT (RND*32! 

340 LET c = INT (RND*32> 

350 PR INT AT 0,a;"*";AT 0,bAT 0,c;"*" 

360 LET a=USR 30000 
400 GO TO 110 


500 DATA 62,24,33,255,87,93,84,254,0,200,6,32,43,16, 
-3,1,224,0,237,184,61,254,8,56,14,6,7,37,16,-3,1,32,0 
,237,184,98,107,24,-32,6,32,8,62,0,18,27,16,-4,8,24,- 
16 


1000 SAVÉ 11 METEOR" LINE 1 


Megjegyzés: A program bővíthető a csillagok számának növelésével, a haladási 
sebesség változtatásával, esetleg beépített objektumok elérése esetén adható 
jutalompontokkal. A pontozás több szinten is megoldható lenne, pl. ritka csil¬ 
lagképpel és lassan indulva az első szinten Kevés pontot adva, később — nö¬ 
vekvő pontszám mellett — növekedhetne a sebesség és az egy sorban elhelye¬ 
zett csillagok száma. A színhatások és hangeffektusok is bővíthetők. Hiányos¬ 
ság, hogy „menet közben" nem jelzi a program az elért pontszámot (és a rekor¬ 
dot). A feliratok angol nyelvűek. Sajnos, használati utasítás még angolul sincs. 
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GUSZTÁV SPORTOL 

Készítette: Dárday Zoltán 



Leírás: A program három, egymás után következő játékot tartalmaz. 

— AKADÁLYFUTÓ: Gusztávot a kurzorbillentyűkkel irányíthatjuk a felfelé 
haladó pálya nyílásain a „kapu" között. Három élet van; 

— KAPUS: Gusztávnak 3X 10 labdát kell kivédenie; 

— HEGYMÁSZÓ: a hegyvidék vonulatát a 6 (lefelé) és a 7 (felfelé) billentyűk¬ 
kel kell nyomon követni: itt is három élet van. 

1 >REM GUSZTÁV SPORTOL 

2 RESTORE : FÓR 1=0 T0 7: READ B: POKE USR "A"+I,B 
: NEXT I 

3 LET R=0: Difi R$<5) 

4 DIM J$(20,10): DIM J í20) 

5 BORDÉR 4: PAPER 4: INK 7: CLS 

6 GO TO 3000 

7 LET 0=0 

8 CLS : F'RINT FLASH 1; AT 11,4;" GUSZTÁV AZ AKADAL 
YFUTQ F'AUSE 300 

9 FÓR G = 1 TO 3: CLS : LET X = 4: LET A = -3 

10 FÓR 1 = 1 TO 6: POKE 23692,255: F'RINT AT 21,21,"* 

* 8 " 

30 LET X = X +(INKEYí ="8" AND X<6)-(INKEY$="5" AND X>1 
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50 PR INT INK 0;AT 0,X; " *" 

55 BEEP .01,10 
60 NE XT I 

63 IF F'OINT <8#X + 4,165) THEN 60 TO 100 
65 LET A=A+1 

70 F'RINT AT 21,21," tiBiMiiiiiMii ''; AT 21, INT (RND*6) 
+ 1 ; " " 

80 BEEP .01,10 
85 60 TO 10 

100 F’RINT FLASH 1; AT 7,11;" ";A; H KAPUN BÚJTÁL AT " 
120 IF A>R THEN LET R=A: PRINT AT 13,14; FLASH 1;" 
UJ RECORD INPUT "ÍRD BE A NEVED!", LINE Rí 
130 PR INT AT 18,10; “A RECORD: ";R;“ Jl ;RÍ 
135 60 SUB 200 
140 LET 0=0+10*A 
145 NEXT 6 
150 60 TO 1000 

160 DATA 60,60,24,255,189,189,36,102 
200 BEEP .25,0: BEEP .25,2: BEEP .125,3: BEEP .125,2 
: BEEP .25,0 

210 BEEP .285,3: BEEP .25,5: BEEP .25,7 
220 RETURN 

1000 CLS : PRINT FLASH 1;AT 11,7;" GUSZTÁV A KAPUS " 
: PAUSE 300 


1001 FÓR 6=1 TO 3: CLS 


1002 LET 
HliffiiH"; 
1020 FÓR 


mm 


E=8: LET F=0: PRINT AT 13,2; 

AT 13 , E; INK 0; PAPER 7;"#" 

P=1 TO 10: LET W=INT (RND*13)+1: F'RINT AT 16 


, 0; P , F 

1040 LET X = INT <RND*12)+3 

1050 FÓR 1=1 TO 13: FÓR K=1 TO W: NEXT K: PRINT AT I- 
1,X ; " “; AT I,X;"o" 

1080 LET E = E +(INKEYí ="8" AND E<14)-(INKEYÍ="5" AND E> 


3) 

1090 F'RINT INK 0; F'AF'ER 7; AT 13 , E -1; " * " 
1100 NEXT I 


1105 PRINT AT 13,X;"Ü" AND XOE 

1110 IF X=E THEN LET F=F+1: BEEP .5,10: 60 TO 1120 
1115 BEEP .5,-10 
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1120 NEXT P 

1130 F'RINT AT 16,0; "10" , F: 60 SUB 200 
1150 LET 0 = 0+10*F 
1160 NEXT S 

2000 CLS : PRINT FLASH 1;AT 11,4;" GUSZTÁV A HEGYMAS 

Z0 PAUSE 300 

2003 FÓR (3=1 TO 3: CLS 

2010 LET Y = 10; PRINT A’T Y , 0; "= = = = = " 

2030 FÓR X=5 TO 28: PRINT AT Y,X;"="; 

2050 LET Y=Y+1NT <RND*3>-1 
2060 IF Y<5 THEN LET Y=5 
2070 IF Y>15 THEN LET Y= 15 
2080 NEXT X: F'RINT "CÉL" 

2100 LET Y = 10: LET X=0 
2104 PRINT AT Y;X;"=" 

2110 LET X = X + 1: LET Y=Y+(INKEYÍ ="6")-(INKEY$="7 " ) 

2140 LET N*=SCREEN* (Y,X) 

2150 F'RINT INK 0; AT Y,X;"*" 

2160 BEEP .2,10 

2170 IF N$ =" =" THEN 80 TO 2104 
2180 IF N $ =" C " THEN LET 0 = 0+100 
2200 LET 0=0+10*X 

2205 GO SUB 200: NEXT G: 80 SUB 200 

2210 CLS : PRINT AT 11 , S; " PONTSZAMOD: ";G: F'AUSE 100 

2300 LET 1=0 

2310 LET 1=1+1 

2315 IF 1=21 THEN 60 TO 3000 
2320 IF J <I> >0 THEN 80 TO 2310 
2325 IF 1=20 THEN GO TO 2350 
2330 FÓR Z = 20 TO 1 + 1 STEF' -1 

2340 LET J(Z)=J(Z~1): LET J$ <Z)=J$ (Z- 1) : NEXT Z 
2350 LET J í I) =0: LET J$U)=" " 

2360 CLS : PRINT TAB 3;“NÉV","PONTSZAM", , , 

2370 FÓR W= 1 TO 20: F'RINT 

2371 IF J(W)<>0 THEN PRINT J(W) 

2375 NEXT W 

2380 F'RINT AT 1 + 1,0; FLASH 1; " El" 

2390 INPUT LINE J$(I> 

2400 F'RINT AT I + 1,0;J*(I) 
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2405 PAUSE 150 


3000 CLS : 

PRINT 

AT 3,24 

; " l»", 

TAB 2; 1 

.IBÜL 

ISI Ü 

IWUlHíWI 

ffiKilUi 

liliüiil iiüKII 
3001 PR INT TAB 

JiiiSL 1B 
2; "üli ISI 

M tii 

Bi II 

JT 

ii 

■ ii 

ül !!T 
3002 PR INT 

TAB 

2; 

"Hű 

H SIS 

fiffilBUtH 

JT 

m 

II I 

■ ír 

3003 PR INT 

TAB 

2; 

"UK 111 

li SIB 

“li 

JF 

m 

HHH 

Ilii Eí III" 
3004 PR INT 

TAB 

O . 

5 

“ ■ Ül: 

■ ■ 

Bi II 

wir 

■ 

11 

11 *1 BT* 
3005 PRINT 

TAB 

n . 

" WggggU 

"■ür 

“Bar 81 

IMII 

IS; 

ül 

III “tÜF " 
3006 PRINT 

AT 

14, 

3;"JÜIIIL HSSL JWKL BMS1L HEH 

BUBI bu! 

HL UH" 
3007 PRINT 

TAB 

T . 

•- J 

"■ m 

ii m 

H Bi 

ii ii 

műm 

■ 

is 

wís 

liil II" 

3008 PRINT 

TAB 

3; 

a ULm 

m bi 

li ii 

■ ill 

ii 

Bi 

II liü" 

3009 PRINT 

TAB 

3; 

" SUMígl 


u m 

HHWr 

mm 

mm 

m 8 

ma" 

3010 PRINT 

TAB 

3; 

"m in 

íi 

wal mm 

uumi 

mm eaa 

Bi 

m i 

ST 

3011 PRINT 

TAB 

3; 

» m|mp 

■ 

ttijlppu.' 

H Ki 

na»» 

BSffl 

"8881 

KP lttSi ,i 
3012 F0R I 

=0 T0 7 

: OUT : 

í 54, 1: 

BEEP . 

02,10- 

I: IF 

INKEY 


*="" THEN NEXT I 

3013 IF INKEY$="" THEN B0 TO 3012 

3014 BO TO 7 

4000 SAVÉ "GUSZTÁV SP" LINE 1 

Megyjegy^és: Jól megszerkesztett programsorozat. Itt különösen hiányzik a fel¬ 
használót tájékoztató útmutató felirat. Jó lenne, ha a három játék közül külön- 
külön bármelyik önállóan is indítható lenne. Ezenkívül (különösen a hegy¬ 
mászó programnál) játék közben is jelezni kellene az elért pontszámot. 
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GUSZTÁV MOTOROZIK 

Készítette: Dárday Zoltán 



Leírás: Úgy kell Gusztávval a kijelölt úton haladni, hogy az útszegélynek és az 
akadályoknak (bokor, kő, tábla) nem szabad nekimenni. Az irányítás a 6 (le¬ 
felé), III. a 7 (felfelé) gombokkal történik. A kanna és a kapu felvételéért juta¬ 
lompont jár. 

2 RÉM GUSZTÁV MOTOROZIK 

3 CLEAR 29999: BEEP 1,0: LET R = 0: BORDÉR 6: PAPER 
4: INK 0: CLS 

4 FÓR 1=0 T0 39: READ a: POKE USR M Ö” + i,a: NEXT i 

5 DATA 60,66,241,141,133,133,134,252 

6 DATA 8,73,33,164,153,94,188,126 

7 DATA 240,143,129,133,241,31,24,24 


56 





3 DATA 15,201,255,123,119,111,127,127 
9 DATA 63,61,61,59,30,12,12,30 
10 FÓR 1=0 TO 31: READ A: POKE USR ■ JT+I,A: NEXT I 
13 RÉM 6EPI KOD BETÖLTÉS 

15 FÓR i=30000 TO 30021: READ a: POKE i,a: NEXT i 
20 DATA 0,3,3,7,14,31,63,60,0,128,128,128,0,0,240,5 

6 

30 DATA 124,127,123,101,164,164,136,112,16,240,222, 
153,169,169,34,28 

40 DATA 33,0,64,22,0,62,128,6,31,35,94,43,115,35,16 
,249,114,35,61,32,242,201 

41 RÉM KEZDET 

42 GO SUB 700 

43 BORDÉR 6: INK 0: CLS : PRINT AT 15,20,: FÓR i = l 
TO 6: PR INT PAPER 6,T AB 0: NEXT í 

44 LET p=ö: PRINT PAPER 6;AT 21,0;“SCORE: ";p,"HIG 
H: ";R 

45 FÓR 1=0 TO 20: PRINT AT 5,I;"=";AT 11,1;"=“;: NE 
XT I 

48 LET Y = 5: FÓR 1 = 21 TO 30 
50 60 SUB 300 
56 NEXT I 

60 LET 1=31: LET 8=8 

70 LET U = 0: LET h= INT <RND*40)+50 

95 RÉM FOLYTATÁS 

100 PRINT AT S,10; " JL. ";AT s+1,10; "TO” 

110 PRINT AT y+INT (RND*5) + 1,31;"Háj” AND INT <RND*40 
) = 5 

115 PRINT AT y+INT (RND*5)+1,3 1 j" ¥" AND INT <RND*60 
i =20 

120 GO SUB 290 

125 PRINT PAPER 6;AT 21,7;p 

128 IF NŐT POINT (101,170-5*8) AND NŐT POINT (101,17 
0- (s+1> *8) THEN GO TO 145 

130 IF POINT (101,172-S*S) OR POINT <101,172-<S+1)*8 
> THEN GO TO 400 

135 IF POINT (102,173-5*8) OR POINT (102,173-(s+1)*8 
) THEN GO SUB 500 

140 IF POINT (98,175-5*8) OR POINT í98,175-(s+1)*8) 
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THEN GO TO 600 
145 LET u=u+.5: LET p = p + 1 
190 PR INT AT S, 10; " "; AT S + 1,10;" 

200 LET 1=USR 30000 

220 LET S = S+(INKEY$="6" AND S<14)-(INKEY* = "7" AND S> 
0) 

230 IF U<H THEN GQ TO 100 

240 IF SCREENí < Y,30 > =" = M THEN PR I NT AT Y , 3 0;“ G 
0 TO 70 

250 PR INT AT Y,30;" = ": GO TO 70 

290 IF NŐT <U<H AND SCREEN* (Y,30)="=") THEN GO TO 
450 

300 LET Y=Y+INT (RND*3)-1 
310 LET y = y-(y>9) + <y<0) 

325 PRINT AT y,I;"=";AT y+6,I;"="; 

330 RETÜRN 

400: FÓR 1=0 TO -30 STEP -10: BEEP .1,1: NEXT I: 

401 PRINT PAPER 6;AT 17,4;“PRESS 0" 

402 IF INKEY$<>"0" THEN GO TO 402 
406 IF P>R THEN LET R = P 

410 GO TO 42 

450 LET y=INT íRND* 11) 

455 IF U= INT U THEN PRINT AT INT íRND*16),I;CHR$ (I 
NT (RND#3)+148) 

460 RETURN 
490 RÉM KANNA 

500 FÓR j = l TO 5: BEEP .05, j: NEXT j 
505 LET p = p + 50 
510 RETURN 
590 RÉM KUPA 

600 FÓR j = 20 TO 23: BEEP .05,j: NEXT j 
605 LET p=p+8Ü 

610 60 TO 145 

700 BORDÉR 4: INK 6: PAPER 4: CLS : F'RINT AT 5,24;“i 
",TAB 2;'m ü II wiüllm HHiüii INNI JiiSL H B 

II 

701 PRINT TAB 2;"1 H ■ ■ H 1 JT U ■ 

H m H" 

702 PRINT TAB 2; 11 ■ II Hl HU JP H U I 



703 F'RINT TAB 2; "Iliül 18 ifi “"Ül JT SH M 

m m 

704 PRINT TAB 2;"1 II 1 ■ 1 M JT ü ü 

m in ht 

705 F’RINT TAB 2\ ,,u Wm m "WM* ÜHBI ■ ü 

^jj|| .tt pj jJW H 

710 PRINT AT 16,6; "SL J| « mm m T W". !"“» *"'« ""I !!•* 

II 

711 PRINT TAB 6; "I ■ I E i 1 i I i*“ 1 1 m m I ■ " 

712 PRINT TAB 6; "» 88 *uw'“ i *W i I "W Mmm i ■ " 

725 FÓR 1=0 TO 7: OUT 254,1: BEEP .02,10-1: IF INKEY 

*="" THEN NEXT I 
730 IF INKEY$="" THEN GO TO 725 
740 RETURN 

1000 SAVÉ "GUSZTÁV NO" LINE 1 


UDG 

JL. f.j K 

Megjegyzés: Itt is jó lenne egy játékútmutató a képernyőre, bár a feladat elég 
közismert. „Menet közben" lehetne fokozni még a hanghatást. A pályák kö¬ 
zötti „sivatagi" (?) terep ötletes. Valamilyen programhiba miatt a kupa nem 
mindig tűnik el, hiába szedi fel a játékos. Jó lenne, ha a „sivatagi." útszakasz 
után hibaként jelezné a program, hogy a motoros nem az útpadkák közé tért 
vissza. 
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AGYTORNA ÉS INTELLIGENCIATESZT 

Készítette: Oárday Zoltán 


Leírás 1: A program a közismert „Master mind" játék számítógépes változata. 
A gép öt egyjegyű számot rejt el, amelyek közül kétszer szerepelhet bármelyik 
számjegy (többször nem). Előre megadott számú próbálkozás során kell az öt 
számjegyet kitalálni. A program külön jelzi az eltalált helyű és értékű számje¬ 
gyek darabszámát. 

Leírás 2: Egy háromszög alakú rácsos táblán egy hely üres (0). A többi 1-esek- 
kel van feltöltve. Addig lehet lépni bármelyik l essel, amíg van átléphető szom¬ 
szédos 1-es. Az a cél, hogy minél kevesebb 1-es maradjon a táblán. A lépéseket 
a koordináta-számpárokkal a „HONNAN-HOVÁ" kérdésre válaszolva lehet 
megadni. Ha már nincs több lépés, 0-val kell kilépni. Eztán derül ki az agytorna 
eredménye. 

2 REI1 AGYTORNA 

5 BORDÉR 1: PAPER 1: INK 6: CLS 

6 READ B,C,D,E: DATA 200,100,50,30 

8 PR INT FLASH 1;AT 11,11;" AGYTORNA PAUSE 0 

10 F'RINT FLASH 1; AT 11,6;" SUPER MASTER MIND " 

20 PAUSE 250: CLS 

30 PR INT 'TAB 5;"EGY ÖTJEGYŰ SZAMOT KELL",,TAB 2;"K 
ITALALNOD, A SZÁMJEGYEK 0-9",,TAB 7;"ERTEKUEK LEHETNE 
K",AT 12,5;"** J0 SZÓRAKOZÁST! **"; FLASH 1;AT 17,5;" 

NYOMJ MEG EGY GOMBOT " 

40 PAUSE 0 

50 CLS : INPUT TAB 5;"HÁNY LEHETŐSÉGET KÉRSZ?", LIN 
E Bt 

52 LET H=50: G0 SUB 5000 

53 LET V=VAL Bt 

54 RÉM KOMBINÁCIÓ 

55 RANDOMIZE : F0R N=1 T0 5 

53 LET Z=INT (RND* 10) 
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60 IF N=1 THEN LET A=Z 
70 IF N = 2 THEN LET B=Z 
72 IF B=A THEN GO TO 58 
80 IF N=3 THEN LET C=Z 
82 IF C=A OR C=B THEN GQ.TO 58 
90 IF N=4 THEN LET B=Z 
92 IF B=A OR D=B OR D=C THEN SO TO 58 
100 IF N=5 THEN LET E=Z 

102 IF E=A OR E=B OR E=C OR E=D THEN GO TO 58 
110 NEXT N 
130 CLS 

140 FRINT AT 0,4;"** SUF'ER MAGTÉR MIND **",,, V;TAB 6 
; "JO SZÁM";TAB 22;"J0 POZICIO",, 

150 IF V<1 THEN GO TO 1300 
160 LET X=-1: LET Y=-l 
180 INPUT "TIPP?", LINE Bt 
182 IF LEN B$< >5 THEN 60 TO 180 
190 LET H = 180: GO SUB 5000 

200 LET A1=VAL Bt(1): LET B1=VAL B$í2>: LET C1=VAL B 


t (3) : 

LET D1=VAL 1 

Bt (4 ) : LET El = 

VAL 

Bt (5) 




250 

PR INT AT 21, 

14; Bt 






255 

IF A1 = A THEN 

GO SUB 1000 






260 

IF B1=B THEN 

GO SUB 1000 






265 

IF C1=C THEN 

GO SUB 1000 






270 

IF D1 = D THEN 

GO SUB 1000 






275 

IF E1=E THEN 

60 SUB 1000 






280 

IF AOA1 AND 

(A=B1 OR A=C 1 

OR 

A = D 1 

OR 

A = E1 ) 

THEN 

60 

SUB 1100 







285 

IF BOB! AND 

(B = A1 OR B = C 1 

OR 

B = D 1 

OR 

B = E 1) 

THEN 

GO 

SUB 1100 







290 

IF COC1 AND 

(C=A1 OR C=B1 

OR 

C = D 1 

OR 

C = E 1) 

THEN 

GO 

SUB 1100 







295 

IF DODI AND 

(D=A1 OR D=B1 

OR 

D = C 1 

OR 

D = E 1 ) 

THEN 

GO 

SUB 1100 







300 

IF EOE1 AND 

(E = A1 OR E = B1 

OR 

E=C 1 

OR 

E = D 1) 

THEN 

60 

SUB 1100 







310 

LET V=V-1 







315 

PR INT AT 21 , 

28 







320 POKE 23692,19: PRINT 
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325 BEEP .5,0 
330 60 T0 140 

1000 LET Y = Y + 1: PRINT AT 2Í,22+Y;"*“ 

1020 IF Y=4 THEN CLS : 00 TO 1500 
1030 RETURN 

1100 LET X = X +1: PR INT AT 21,6 + X;* +": RETURN 
1300 CLS 

1310 F'RINT AT 11,5;"** EZ NEM SIKERÜLT 1 **" 

1320 PRINT AT 15,7;"A MEGOLDÁS: ";A;B;C;D;E 
1430 PAUSE 0: RUN 3000 

1500 PR INT FLASH 1;AT 11,10;* GRATULÁLOK " 

1630 60 TO 1320 

3000 F'RINT FLASH 1; AT 11,9;" MEMORIATESZT PAUSE 2 
50: CLS 

3001 PR INT "ELOSZOR 1 MAJD 2,3,4,..20 SZAMOT",TAB 3;" 
FOGSZ LÁTNI. EZEKET KELL",,TAB 5; "A LÁTOTTAKKAL HEG 
EGYEZŐ 11 , , TAB 4SORRENDBEN A GEPBE BEÍRNI",AT 12,5;" 
** JO SZÓRAKOZÁST! **"; FLASH 1;AT 17,5;" NYOMJ MEG E 
GY GOMBOT " 

3009 RANDOMIZE : PAUSE 0: CLS : PAUSE 80 

3010 LET AÍ=CHR$ INT <RND*10+48>: LET P=0 
3020 LET P=P+1 

3040 FÓR X = 1 TO P: F'RINT AT 0,C0DE A$ í X )-48; A$ (X > : F'A 

USE 50: CLS : NEXT X 

3090 INPUT LINE Bí: BEEP .5,0 

3100 IF AÍOBÍ THEN GO TO 3160 

3110 LET A$=Af+CHRI INT <RND*Í0+48) 

3120 IF P<20 THEN GO TO 3020 

3130 F'RINT AT 11,8;"** GRATULÁLOK **" 

3140 PAUSE 0: RUN 4000 

3160 F'RINT AT 11,8; " FIG YEL J JOBBAN! ";AT 16,6; A í ; A T 19 

, 6; Bí 

3170 60 TO 3140 

3800 F'RINT FLASH 1; AT 20,7; "HIBA": PAUSE 100: PR I NT 
AT 20,7;” ": RETURN 

4000 F'RINT FLASH 1; AT 11,5;" INTELLIGENCIA TESZT ": 
PAUSE 250: CLS 

4001 F'RINT "A JÁTÉK LÉNYÉGÉ, HOGY A GULABAN” ,,TAB 3;" 
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A LEHETŐ LEGKEVESEBB 1-ES H ,,TAB 3;"MARADJON. ÁTLÉPETT 
1-ESBOL",,TAB 3;"0 LESZ, CSAK O-RA LEPHETSZ";AT 11,ó 
;*‘l 10 => 0 0 1"; AT 16,5;"** JO SZÓRAKOZÁST! * 

*"; A T 20,5; FLASH 1;” NYOMJ MEG EGY GOMBOT " 

4009 PAUSE 0 

4010 CLS : LET P =14: LET K = 5 

4060 PRINT AT 2,K;"0";AT 10,K+17j"11" 

4070 FÓR 1=2 TO 5: LET K=9-K 

4100 FÓR J=1 TO I: LET H=10*I+J 

4120 PRINT AT 2*I,K;"1";AT 2*I+8,2*K+12;H 

4130 LET K = K + 2: NEXT J 

4150 LET K=K-2: NEXT I 

4190 INPUT "HONNAN?", LINE Bí 

4191 LET H=4190: GO SUB 5000 
4193 LET B = VAL Bí 

4195 IF B=0 THEN GO TO 4800 
4200 LET I = INT (B/10): LET J=B-10*I 

4220 IF J>I OR I>5 OR I<1 OR J<1 THEN GO SUB 3800: G 
0 TO 4190 

4225 IF SCREENÍ (2*1,2*J- I + 4 K > " 1" THEN 60 SUB 3800: 
GO TO 4190 

4228 INPUT “HOVA?", LINE Bí: LET H=4228: GO SUB 5000 


4229 LET C=VAL Bí 

4230 LET X = INT (C/10): LET Y = C-10*X 

4250 IF Y>X OR X>5 OR Y<1 OR X<1 THEN GO SUB 3800: 6 


0 TO 4228 
4260 IF SCREENÍ 
80 TO 4228 
4270 IF SCREENÍ 
TG 4700 

4280 IF SCREENÍ 
TO 4700 

4290 IF SCREENÍ 
GO TO 4700 
4300 IF SCREENÍ 
60 T 0 4700 
4310 IF SCREENÍ 
GO TO 4700 


(2 * X , 2 * Y - X + 4 ) < >" 0 ” THEN GO SUB 3800: 
(2#1,2*J-1+6)< >"0" AND C = B+2 THEN GO 
(2* 1,2*J-1 + 2 > < >"0" AND C = B-2 THEN 60 
(2*1+2,2*J-I+3)<>"0" AND C=B+20 THEN 
(2 * X + 2,2 * Y - X + 3) O" 0" AND C = B-20 THEN 
(2*1 + 2,2*J-I + 5K>"0" AND C = B+22 THEN 
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4320 IF SCREENf (2*X + 2,2*Y-X + 5)< >”Ö" AND C=B~22 THEN 
GQ T0 4700 


4330 

GQ SUB 

3800 




4340 

G0 T0 

4190 




4700 

F'RINT 

AT 2*1,2*J-I+4;"0";AT 

2* X 

, 2* Y 

- X + 4;"1" 

4705 

BEEP . 

5,0 




4710 

LET Q = 

B+(C—B)/2: LET I = INT 

(Q / 10) : 

LET J = B-10* I 

4720 

PR INT 

AT 2*1,2*J-I+4;“0" 




4730 

LET P = 

P-l 




4750 

IF P=1 

THEN CLS : F'RINT AT 

11, 

11;" 

ZSENIÁLIS": P 

AUSE 

0: RUN 




4760 

G0 T0 

4190 




4800 

CLB 





4810 

PR INT 

AT 11,11;"NAGYON J0" 

AND 

P = 2 


4820 

PRINT 

AT 11,11;"MEGFELELŐ" 

AND 

P=3 


4830 

PR INT 

AT 11,13;"GYENGE" AND 

P = 4 



4850 

PRINT 

AT 11,10;"NAGYON GYENGE" 

AND 

P >4 

4900 

PAUSE 

0: RUN 




5000 

IF C0DE Bí=0 THEN G0 T0 H 




5010 

F0R E = 

1 TO LEN B$: IF BÍÍE) 

<" 0 M 

OR 

SÍIÉI>"9" THE 


N GO TO H 
5020 NEXT E 
5050 RETURN 


Megjegyzés 1: A program, bár fejtörő jellegű, jobban is kihasználhatná a gép 
hang- és főként színkezelését Úgy tűnik, az ismételt számjegyek esetén a kijel¬ 
zés algoritmusa eltér a szokásos játék szabályaitól. Ezt vagy külön fel kellene 
tüntetni, vagy mint programhibát — ki kell javítani. Elég kevés a RÉM az 
amúgy is zsúfolt listában. 

Megjegyzés 2: A félrevezető megnevezéstől eltekintve (pl. solitery-ként lehet 
ismerős) jól megírt és szépen kivitelezett program. -Sajnos túlzsúfolt és meg¬ 
jegyzésekkel alig ellátott a programlista. A szín- és hangkezelés is lehetne ötle¬ 
tesebb. 
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VADÁSZAT 

Készítette: Mészáros Péter 



Leírás: A képernyő felső részén egy madár mozog, amit el kell találni. A vadász 
minden találatáért 12 pont jár. Vigyázni kell azonban, mert a madár is tud lőni. 
A játékos a képernyő alsó szélén mozogva manőverezhet. 


1 RÉM MÉSZÁROS PETER'l984< 

2 BORDÉR 2: PAPER 2: INK 7: CLS 

3 GO SUB 1000 
5 LET r = 0 

8 GO SUB 6000 
10 LET >; = INT (RND#29)+1 
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15 LET w=10 


20 LET y=INT <RND*31> 
25 LET p=0 
30 LET h=0 


40 LET j=0 
50 PR INT AT 2,0; 


BumiuiwiwiauMBywiwniwiiaBaBKiWBNauMitiiiiiui 


H k ff< is yi u n ita un ■" 

60 PR INT AT 0,0;"Pontokp 
70 PR INT AT 0,20;"REKORD:r 

80 FÓR u=l TO 3-js PR I NT AT 0,14 + u;"A": NEXT u 
100 IF I NKEY$=" 6" AND >: >0 THEN LET >: = >:-! 

105 IF INKEY$="0" THEN GO SUB 400 

110 IF INKEY$="7" AND >:<28 THEN LET >: = >: + ! 

115 GO SUB 5000 

120 PR INT AT 21, " jAi " 

130 LET f = I NT (RND*w > 

135 IF w>2 THEN LET w = w-.01 
140 IF f = l THEN GO SUB 2000 


200 GO TO 100 


400 FÓR 1 = 1 TO 2: OVER 1: PLOT >;*S + 16,6: DRAW 0,137 
: OVER 0: NEXT 1 
410 BEEP .01,0 

420 IF >: =y OR >; + l = y AND INKEY$ = "0" THEN GO TO 500 

430 RETURN 

500 FÓR k=Ö TO 10 

510 BEEP .01,y + k 

520 PR I NT AT 3 , y + 1; 11 M" 

525 IF y<20 THEN LET y = y + 5: GO TO 530 
527 IF y>5 THEN LET y = y-5 
530 NEXT k 
540 LET p=p+12 

545 IF p=70Ö THEN LET j=’-l 
550 CLS : GO TO 50 
1000 RESTORE 

1005 FÓR i=USR "a" TO USR "h"-l 

1010 READ 5 

1020 POKE i,s 

1030 NEXT i 

1035 GO TO 4000 
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104 0 DATA 1,1,BIN 0000001 1,BIN 001001 11,BIN 001001 1 1 , 

BIN 01111111,BIN 01111100,8IN 11111001 

1050 DATA 128,128,BIN '11000000,BIN 11100100,BIN 11100 

100,BIN 11111110,BIN 00111110,BIN 10011111 

1060 DATA 0,0,BIN 01000001,BIN 01100011,127,BIN 00111 

110,BIN 00011100,BIN 01101011 

1070 DATA 195,195,0,0,24,0,195,195 

1030 DATA 16,16,16,56,BIN 11111110,BIN 11111110,198,1 
46 

1090 DATA 16,16,124,68,124,68,68,0 
1100 DATA 16,16,124,64,112,64,124,0 

2000 FÓR 1=1 TO 2: OVER 1: PLOT y*8+16,13S: DRAW 0,-1 
37: OVER 0: NEXT 1 

2010 IF y = >: OR y = x + l AND f=5 THEN GO TO 2030 
2020 RETURN 

2030 PR INT FLASH 1; AT 10,12}"bumm!íi!" 

2032 PR INT AT 21 ,x + l; H jJC-? 

2035 PR INT AT 21 ,x + l; "I-Xt” 

2038 PR INT AT 21 ,x + l; 

2040 BEEP .5,-10 

2045 FÓR 1=1 TO 2: OVER Is PLOT y*8+16,13S: DRAW 0,-1 
37: OVER 0: NEXT 1 
2050 LET j=j+l 

2060 IF j<3 THEN CLS : GO TO 50 
2070 PRINT AT 17,5;"meghal tál 1 " 

2075 BEEP .05,30: BEEP .05,10 

2i00 IF p< = 36 THEN PRINT FLASH 1;AT 19,3;"Kezdő!..K 
ezdj magaddal mást ! " 

2110 IF p >36 AND p< = 100 THEN PRINT FLASH 1;AT 19,0; 
"Javulsz,de cseréltesd a re-f 1 exe-i det ! " 

2120 IF p>100 AND p<=300 THEN PRINT FLASH 1;AT 19,0 
; "Van benned tehetseg,de ehhez kévés!" 

2130 IF p >300 AND pOlOOO THEN PRINT FLASH 1; BRIGH 
T 1; AT _19,0;"Egesz jól csinálod!" 

2135 PRINT AT 0,13;" 

2140 IF p>1000 AND p<=1500 THEN PRINT FLASH 1;AT 19 
,0;"S 2 1 a r vagy 1 " 

2150 IF p> 1500 THEN F'RINT FLASH 1;AT 19,0; "Igazi me 
stervadasz vagy! ";p/12;" madarat kilőtt 

el!": GO SUB 3000 



2180 IF p>r THEN PRINT AT 8,0;"Ez a rekord!": LET r = 
P 

2200 PRINT AT 3,0;"UJ JÁTÉK?(i/n>“ 

2210 IF INKEY$=" i " OR INKEY $- "I" THEN CLS : GO TO 10 

2220 IF INKEY$="n" OR ÍNKEY$="N" THEN STOP 

2230 GO TO 2110 

3000 BEEF' .5,25: BEEP .2,15: BEEP .3,10: BEEF' .4,20: 
BEEP .2,15: BEEP .3,10: BEEP .7,25 
3010 RETÜRN 

4000 CLS : PRINT AT 0,8;"V a d a 5 z a t" 

4010 PRINT AT 4,0; " üví íüpí ümüü»í^!»??^^ ü*p*í^ üví! 

4020 PRINT AT 18,0; 11 

4030 PRINT AT 2,8;"JATEKSZABALYOK" 

4040 PRINT AT 7,0;“ A játéktér felső részén ma 

zog egy madar,amit el v. kell találnod. Erre 12 

pontot kapsz. DE jól vi- gyazzlO is 

éppúgy e 11 a - lalhat!Fegyvered az alsó .aA*. 

térfélén mozgathatod. 41 
4050 PRINT AT 16,10;" JQ JÁTÉKOT ! " 

4060 PRtNT AT 20,5; M Nyomj meg egy gombot! 11 
4070 PAUBE 4E4 
4080 CLS 

4100 PRINT AT 4,0; " 

$»pí !fcé *í&í $*£ ÍMÍ ÍWÍ ÍWÍ ÍJ^" 

4110 PRINT AT 18,0; 11 íühí^ í*víí!!* pí^ í*vü^^ í**hí5h*ü í!ví ín^ 

^¥í! S*?. í!<pí! ÍW! ÍHhíí !WÍ !w! ÍWÍ !w! W." 

4120 PRINT AT 2,5;"IRÁNY ITAS:" 

4130 PRINT AT 15,-0;" <-- 6 - 7 “ 

4140 PRINT AT 10,13;"1oves" 

4150 F'RINT AT 8,15; "0" 

4160 PRINT AT 6,15;" '" 

4170 PRINT AT 20,5;"Nyomj meg egy gombot!" 

4180 PAUSE 4E4 
4190 RETURN 
5000 RÉM 

5050 BEEP .001,20 
5060 LET z=INT <RND*2> 
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5070 IF 2=0 AND y>0 THEN LET y=y-i 
5080 IF 2=1 AND y<28 THEN LET y=y+l 
5085 PRINT AT 3,yi" « " 

5090 RETURN 
6000 CLS 

6010 PRINT INVERSE 1; AT 0,7;"V A D A S Z A T“ 

6020 PRINT AT 3,0; " 

!se 5*? Orí '*£ !*í ifrí !■*? Isní 1 " 

6030 PRINT AT 18,0; " 

!*í ÍWÍ V 5*í ÍM! !*íVlw! V 5*í'” 

6035 PRINT AT 5,29; 11 

6040 PRINT AT 5,2;"vi=12 Pont" 

6045 LET *=10 

6047 LET y = 15 

6050 FÓR t=l TO 9 

6055 LET >; = x + 1 

6060 PRINT AT 17,x;" *** " 

6065 PRINT AT 7,y;" « " 

6070 GO SUB 6110 
6075 BEEP .01,50 
6080 PAUSE 42 
6090 NE XT t 
6100 GO TO 6130 

6110 FÓR 1 = 1 TO 2: ÜVER 1: PLOT >:*S + 16,40: DRAM 0,78: 

OVER 0: NEXT 1 
6120 RETURN 
6130 RESTORE 6200 
6135 FÓR t=0 TO 10 
6140 PRINT AT 10,7 + t;” AAAAiAi. “ 

6150 READ b: BEEP .05,s 
6160 NEXT t 
6165 PAUSE 20 
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6170 CLS 
6180 RETURN 

6200 DATA 25,34,23,12,10,0,10,12,23,34,40 
9999 SAVÉ "vadaszat" LINE 1 


UDG 

JÁ ^ V- M pin A ± 


Megjegyzés: A gyilkos madár gondolatától eltekintve maga a játék jól működik. 
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CHALLENGER 

Készítette: Mészáros Péter 



Leírás: Egy UFO-t kell irányítani a rakéták között az űrbázishoz, lehetőleg üt¬ 
közések nélkül. 200 pontonként két új UFO-t ad a program. A 0-val előre, 
a 6-tal visszafelé lehet az űrhajót mozgatni. A játék tetszőleges billentyű meg¬ 
nyomásakor elindul. 


1 RÉM MÉSZÁROS PÉTER 1984< 

2 CLS : LET h=0 

3 GO SUB 9000 

4 DIM q(6,2); GO SUB 8500 

5 GO SUB 4000 

6 RÉM ÓRA JÁTÉK 

7 LET p=0 

8 LET f = 0 
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9 LET -f =0 

10 LET u=0 

11 LET g=Ö 

12 PAPER 3: BORDÉR 3: INK 7: CLS 

13 LET r = 4: PR INT BRIGHT 1; AT 5,17; — — — — " 

14 LET t=i 

20 GO SUB 8000 
25 LET k = 0 
30 LET s=5 

35 1F (p/200)-INT (p/200)>u AND p<>0 THEN LET r=r + 
(4-r) : LET u=u+l: FÓR d = l TO r: F'RINT BRIGHT 1; AT 5, 
16 + r; " NEXT d 

37 LET a=INT <RND*4)+1 

38 LET b = INT <RND*4>+1 

39 IF a=b THEN GO TO 38 

40 FÓR v=0 TO 10 STEP 2 

45 PRINT AT 19,20; BRIGHT 1;p 
50 GO SUB 2000 

70 F'RINT AT q (t, 1) , q (t, 2) ; ■«*“ 

80 IF INKEY$="0" AND t<6 THEN PRINT AT q(t,i),q(t, 
2);" LET g = 0 í LET t=t+l: BEEF' .01,40: IF CODE SORÉ 
ENÍ (q(t,l),q ít,2))<>32 THEN GO SUB 3000 

90 IF INKEY$="6" AND t>l THEN F'RINT AT q(t,í),q(t, 
2);" LET g=0: LET t = t-1: BEEF' .01,42: IF CODE SCRE 
EN$ < q(t,1),q(t,2))<>32 THEN GO SUB 3000 
100 IF INKEY$< >"6" AND INKEY$<>"0" AND t = l THEN LET 
g = g+l 

110 IF g >= 15 THEN LET t=t+l: BEEF' .01,30: LET g = 0: 
F'RINT AT 10,2;" " 

150 IF a=1 OR b=1 AND v=0 THEN PRINT AT 5,4;"f" 

160 IF a=2 OR b=2 AND v=0 THEN PRINT AT 16,7;"A" 

170 IF a=3 OR b = 3 AND v = 0 THEN F'RINT AT 5,11;"^" 

180 IF a = 4 OR b = 4 AND v = 0 THEN F'RINT AT 16, 14;" A" 

190 IF vOO THEN GO SUB 1000 

200 IF a = 1 OR b = l THEN F'RINT AT 5+v,4;'"f" 

210 IF a=2 OR b=2 THEN PRINT AT 1ó-v,7;" A " 

220 IF a = 3 OR b = 3 THEN PRINT AT v + 5,1 1;"f" 

230 PRINT AT 16-v, 14; 
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240 IF v-0 THEN F'RINT AT 15,4;" ";AT 6,7;" ";AT 15, 
11;" ";AT 6,14;" " 

250 IF t=6 THEN 80 SUB 2000 

270 IF INKEY$=" 6" AND t)-l THEN PR INT AT q<t,15,q(t, 
2);" LET g = 0: LET t = t-1: BEEP .01,52: IF CODE SCRE 
EN$ (q(t,l),qít,2))< >32 THEN GO SUB 3000 
700 NE XT v 

710 IF t=a+1 OR t=b+l THEN BEEP .8,0: PRINT AT qít, 
1) ,q<t,2) ; GO SUB 3000 

720 IF f=18 THEN LET f=0 

730 IF f = 15 THEN LET k = 0 

750 IF f< 18 THEN LET f =-f +1 

998 BEEP .005,60 

999 GO TO 30 
1000 RÉM RAKETAK 

1010 F'RINT AT 3 + v,4;" " 

1020 F'RINT AT 3 + v,ll;" “ 

1030 PRINT AT 18-v,7;" " 

1040 F'RINT AT 18-v, 14; " " 

1499 RETURN 
2000 RÉM BrtZIS 

2005 IF k=0 THEN PRINT AT 10,18;" ";AT 11,18;"-®*" 

2010 IF k = 1 THEN PRINT AT 10,18;" ."; A T 11,18;"-®*" 

2020 IF k = 2 THEN PRINT AT 11,18;"-®s";AT 10,18;" . 

II 

2023 IF f >14 THEN F'RINT BRIGHT 1; FLASH 1; AT 10,18; 
" "; AT 11,18; "-®»": LET k = 0 

2025 IF t< >6 THEN RETURN 
2030 LET p=p+2 

2033 IF f >14 AND t = 6 THEN LET k = k-1 
2035 LET t=l 

2040 IF k<2 THEN LET k=k+l: RETURN 
2050 PRINT AT 10,18;AT 11,18; "*®s" 

2055 IF f=15 THEN PRINT BRIGHT 1; FLASH 1;AT 10,18; 
" "; AT 11,18; LET k=G 

2059 FÓR o=l TG 4: BEEP .6,50: PAUSE 10: NEXT o 

2060 LET k=0 
2070 LET p = p +10 

2075 F'RINT BRIGHT 1; AT 19,20; p 
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2080 RETURN 
3000 RÉM ÜTKÖZÉS 

3010 BEEP .05,20: BEEP .05,20: BEEP .05,20: BEEP .1,2 
5: PAU3E 10: BEEP .05,20: BEEP .05,20: BEEP .05,20: B 
EEP .05,15 

3020 F’RINT AT q < t, 1) , q < t, 2 > ; '* C" 

3030 LET r=r-1 

3035 LET t=l 

3040 PR INT AT 5,17; " 

3050 FÓR d=1 TO r: PR I NT BRIGHT 1;AT 5,16 + d; ": NE 
XT d 

3060 IF r >0 THEN RETURN 
3070 PRINT AT 20,23;"vege" 

3080 F'RINT BRIGHT 1; AT 5,20; " Potsz am: "; p 
3090 IF p)h THEN PR I NT BRIGHT 1 3 AT 7,20;"Ez a rekor 
d": BEEP .01,30: BEEP .02,20: BEEP .01,25: LET h=p 
3095 PR INT AT 0,26;"R:";h 

3100 FRINT FLASH 1; BRIGHT 1;AT 10,20;"Uj játék?" 
3110 IF INKEY$="1" OR INKEY*="I" THEN GO TO 6 
3120 IF INKEY$ ="n 11 OR INKEYI="N" THEN STOP 
3130 GO TO 3-110 


4000 RÉM J f±i T eb KSZABÁLY 
4010 GO SUB 8000 

4020 FÓR i = l TO 6: F'RINT AT q < i , 1), g (i , 2 : BEEP 

.001,40: NE XT i 

4030 PR INT AT 11,18;"«S»" 

4040 PR INT AT 0,21; "Z I N G 0" 

4050 PRINT AT 2,21;" Egy ufót íü";AT 3,21;"kell irány 
i";A T 4,21;"tanod a ra";AT 5,21;"ketak koztA "5 AT 6,2 
1;“1 ehetőieg AT 7,21;"utkezesek "5 AT 8 ,21;"nelkul , hog 
y";AT 9,21; "el érj a ba";AT 10,21; "zishoz. “““"sAT 11 
,21;"200 ponton";AT 12,21;"kent kapsz";AT 13,21;"két 
u-fot.Jo";AT 14,21; "játékot! '0'";AT 15,21;"-val előre" 
; AT 16,21; " 'ó-tal visz";AT 17,21; " sz ahuz hatod 11 ; AT 18, 
21;"START=barmi”;AT 19,21;"lyen gomb." 

4060 PAUSE 4E4 
4070 RETURN 
3000 RÉM PALYA 

8010 PLOT 24,103: DRAW 0,33: DRAW 33,0 
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8020 PLOT 96,135: DRAW 33,0: DRAW 0,-33 

8030 PLOT 24,72: DRAW 0,-33: DRAW 33,0 

8040 PLOT 96,39: DRAW 33,0: DRAW 0,33 

8050 PLOT 48,96: DRAW 0,17: DRAW 17,0 

8060 PLOT 88,111: DRAW 17,0: DRAW 0,-17 

8070 PLOT 48,81: DRAW 0,-17: DRAW 17,0 

8080 PLOT 88,63: DRAW 17,0: DRAW 0,17 

8090 PLOT 16,88: DRAW 32,0: DRAW 0,-1: DRAW 28,0 

W 0,1: DRAW 28,0: DRAW 0,-1: DRAW 22,0 

8100 PLOT 76,24: DRAW 0,128 

8110 RETURN 

8500 RÉM TANK 


8510 

8520 

8530 

8540 

8550 

8560 

8590 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9500 


LET q(1,1) = 10: LET q(1,2)=2 
LET q <2, 1) = 15: LET q<2,2)=4 
LET q(3,1)=6: LET q<3,2>=7 
LET q(4,1> = 15: LET q(4,2 > = 11 
LET q(5,1)=6: LET q(5,2 > =14 
LET q(6,1) = 11: LET q(6,2> = 16 
RETURN 
RÉM UDS 

DATA 56,214,124,124,56,56,56,16 
DATA 16,56,56,56,124,124,214,56 
DATA 0,0,124,0,124,254,84,0 
DATA 7,10,255,223,255,0,15,7 
DATA 192,160,254,246,254,0,224,192 
DATA 231,10,255,223,255,0,15,7 
DATA 206,160,254,246,254,0,224,192 
DATA 0,0,0,0,1,0,67,0 
DATA 0,0,0,0,0,0,132,0 
DATA 0,0,0,0,0,0,64,0 
DATA 0,0,0,0,1,0,3,0 
DATA 0,0,0,0,0,0,128,0 
DATA 0,0,0,0,0,0,4,0 
DATA 195,129,36,0,36,0,129,195 
DATA 0,0,0,126,126,0,0,0 
DATA 16,16,124,68,124,68,68,0 
DATA 16,16,124,64,112,64,124,0 
FÓR i=U3R "a" TO USR "r"-l 


9510 READ 5 


: DRA 
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9520 POKE i,5 
9530 NEXT i 
9570 RETURN 

9999 SAVÉ "Challenger" LINE 1 


UDG 

Y £ A a. k 5 .... . , . . Sí - & ± 


Megjegyzés: A program használati útmutatója kicsit hiányos, de némi gyakorlás 
után el lehet igazodni a feladatmegoldási stratégián. A leegyszerűsített játék¬ 
mező talán látványosabbá is tehető. A 200 pontos jutalom-UFO-határ magas¬ 
nak tűnik. A programlista elég zsúfolt, néhány megjegyzést feltétlenül érdemes 
még beírni. 
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UTÓSZÓ 


A tanulságokat összegyűjtve, próbáljuk meg összefoglalni azokat a tanácsokat, 
amelyek leginkább segíthetik az olvasó-programozókat! 

1. A program bőven el legyen látvaREM-ekkel! 

2. Az utasítások sorszámozása lehetőleg 10-esével történjék! 

3. Egy sorba csak az összetartozó utasítások kerüljenek! 

4. Ismétlődő és/vagy logikailag elkülöníthető programrészek szubrutinba 
valók! 

5. Legyenek olyan változónevek, amelyek utalnak a logikai funkcióra! 

6. Az összetett aritmetikai kifejezések legyenek zárójelezve! 

7. Lehetőleg készüljön a program mellé folyamatábra is! 

8. Képernyő-kiírások tájékoztassák a program felhasználóját a legfontosabb 
tudnivalókról! 

9. A kiírások legyenek esztétikusak, szellemesek, és nehogy legyen bennük 
helyesírási vagy fogalmazási hiba (inkább többször nézze át más is)! 

10. Érdemes megfogadni (de legalábbis megfontolni) egy-egy mérvadónak ítélt 
személy jótanácsait: egy kívülálló mindig tisztábban látja a problémákat! 

Ezt a „Tízparancsolat"-ot persze nem szabad kizárólagosnak tekinteni. Egy 
mikroszámítógép esetén sokszor kell jó érzékkel megkeresni a helyes közép¬ 
utat a takarékos helykihasználás, a program sebessége és egyéb szolgáltatásai 
között. Legtöbbször nem is lehet általános szabályt vagy tanácsot mondani, 
a szükségszerűség — többnyire a korlátozott memória — gyakran parancsoló 
kényszerhelyzeteket teremt. Mégis úgy érezzük, hogy a még kezdő programo¬ 
zók számára ez a néhány jó tanács lehetőséget ad egy „profibb munkastílus 
kialakítására. Ráadásul ezek - legalábbis szellemükben, szándékukban - nem¬ 
csak a BASIC programok írása esetén érvényesek, hanem más programnyelvek, 
de más számítógépek esetén is javítják az elkészült programok minőségét. 

Még egyszer, jó szórakozást és eredményes munkát kívánunk minden progra¬ 
mozónak a játékok felhasználásához, továbbfejlesztéséhez és használatához. 
Végül egy felhívás: várjuk azok jelentkezését, akik kedvet éreznek önálló 
játékprogramok írására, és munkájukat szívesen közkinccsé teszik. Elkövetkező 
kiadványainkban folytatni szeretnénk hasonló listák közlését a Magyarországon 
legelterjedtebb további számítógépekre (HT-1080Z, Commodore stb.). A je¬ 
lentkezéseket a Mikro Magazin szerkesztőségébe várjuk. 


77 




Kiadja a Műszaki Könyvkiadó 
Felelős kiadó: Fischer Herbert igazgató 

A szedés a Műszaki Könyvkiadó Composer részlegében készült 
Révai, Eger F. v.: Horváth József né dr. 


Műszaki vezető: Kőrizs Károly 
Fedélterv és tipográfia: Lovász György 
A könyv formátuma: A 5 
ívterjedelme: 5 ív (A5) 

Ábrák száma: 12 
Papír minősége: 100 g ofszet 
Betűcsalád és -méret: Univers 10/11 
Azonossági szám: 61 457 
MÜ: 3600-H-8588 

Készült az MSZ 5601 és 5602 szerint 
Kézirat lezárva 1985. július 



